Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  einfügen von Daten aus weiterer Tabelle

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  einfügen von Daten aus weiterer Tabelle (1031 mal gelesen)
AndreasBo
Mitglied
TZ & Konstruktion


Sehen Sie sich das Profil von AndreasBo an!   Senden Sie eine Private Message an AndreasBo  Schreiben Sie einen Gästebucheintrag für AndreasBo

Beiträge: 861
Registriert: 16.11.2006

********
Wenn am Anfang alles schief geht,
nenne es Version 1.0!

erstellt am: 13. Jan. 2021 12:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

folgender Vorgang.
In Tabelle_1 werden Zellen markiert und über STRG+C in die Excel Zwischenablage kopiert.
In Tabelle_2 wird nun über ein Makro das Kopierte eingefügt (ActiveSheet.Paste).
Soweit funktioniert das auch.
Wenn aber in Tabelle_2 schon Werte enthalten sind, sollen diese erst gelöscht werden.
Das Funktioniert auch.

Problem:
Nach dem löschen ist die Selektion in Tabelle_1 (was kopiert wurde) verschwunden und somit hat das Makro keine Werte, die es einfügen kann und erzeugt den Fehler 1004.

Frage:
Kann man, bevor die gefüllten Zeilen der Tabelle_2 gelöscht werden, das selektierte aus Tabelle_1 über VBA "festhalten/speichern"?

------------------
Gruß
AndreasBo
Ich nutze alte Boardsuche | Google | Netiquette | Wie stellt man Fragen richtig? | Systeminfo
********
PTC Creo 4
********
IntelCore i7-6820HQ CPU | @ 3,70GHz | Windows 7 Pro 64 BIT | 16GB RAM | Nvidia Quadro M1000M

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 13. Jan. 2021 14:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AndreasBo 10 Unities + Antwort hilfreich

Hallo AndreasBo,

wenn ich dich richtig verstanden habe könntest du dir eine temporäre Tabelle anlegen und aus der Selection aus Tabelle_1 zwischenspeichern bevor du mit dem löschen beginnst.

Oder halt erst die Werte in Tabelle_2 löschen und danach in die Tabelle_1 in die Zwischenablage schaufeln.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2624
Registriert: 02.05.2006

Office 2010; Office365
Visual Basic

erstellt am: 14. Jan. 2021 12:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AndreasBo 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von AndreasBo:
Frage:
Kann man, bevor die gefüllten Zeilen der Tabelle_2 gelöscht werden, das selektierte aus Tabelle_1 über VBA "festhalten/speichern"?


Sollte gehen, wenn man die Selektierten Werte in ein Range überträgt.
Wie sieht denn Dein Makro bisher aus?
Wenn Du die Tabelle2 löscht, selektierst Du die vorher?
Und wo sollen die kopierten Werte/Inhalte eingefügt werden? Gleiche Zellen oder ausgehend von markierter Zelle?
Etwas mehr Infos wären schon hilfreich.

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

AndreasBo
Mitglied
TZ & Konstruktion


Sehen Sie sich das Profil von AndreasBo an!   Senden Sie eine Private Message an AndreasBo  Schreiben Sie einen Gästebucheintrag für AndreasBo

Beiträge: 861
Registriert: 16.11.2006

********
Wenn am Anfang alles schief geht,
nenne es Version 1.0!

erstellt am: 18. Jan. 2021 11:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Original erstellt von KlaK:

Sollte gehen, wenn man die Selektierten Werte in ein Range überträgt.
Wie sieht denn Dein Makro bisher aus?
Wenn Du die Tabelle2 löscht, selektierst Du die vorher?
Und wo sollen die kopierten Werte/Inhalte eingefügt werden? Gleiche Zellen oder ausgehend von markierter Zelle?
Etwas mehr Infos wären schon hilfreich.

Grüße
Klaus  


Es ist so, dass ich die Werte mit STRG+C kopiere und dann in die andere Tabelle geh und hier über ein Makro eine Prozedur ausführen will, die dann wie Oben beschrieben, erst überprüft, ob schon werte vorhanden sind oder nicht und dementsprechend weiter fortfährt.
Wenn Daten enthallten sind, werden alle Zeilen (außer Kopfzeile) gelöscht und ab A2 (A1 Kopfzeile bleibt) sollen die selektierten Daten neu eingefügt.
Da aber die Selektion beim Löschen verloren geht gibt es eben nicht zu kopieren.

Das Makro zum Löschen sieht so aus:

Code:
Public Sub Data_Clear()

'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

    '** Wenn A2 leer, dann abbruch.
    If ActiveSheet.Range("a2:a99").Text = "" Then
   
    Else
        If MsgBox("Die Tabelle enthällt Daten." & vbCrLf & _
            "Sollen alle Daten/Zeilen der Tabelle gelöscht werden?", vbOKCancel Or vbQuestion, _
                "Abbrechen") = vbOK Then
         
            '** Durchlauf aller Zeilen
            For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
            'Abfragen, ob in der ersten Spalte die Zelle nicht leer ist
                If Cells(t, 1).Value <> "" Then
                    Rows(t).Delete Shift:=xlUp
                End If
            Next t
        End If
    End If
    Range("A2").Select
End Sub


------------------
Gruß
AndreasBo
Ich nutze alte Boardsuche | Google | Netiquette | Wie stellt man Fragen richtig? | Systeminfo
********
PTC Creo 4
********
IntelCore i7-6820HQ CPU | @ 3,70GHz | Windows 7 Pro 64 BIT | 16GB RAM | Nvidia Quadro M1000M

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2021
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
Dell U3818DW + Dell U2412M Monitor

erstellt am: 18. Jan. 2021 11:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AndreasBo 10 Unities + Antwort hilfreich

HY

PM nicht Bekommen ?

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

AndreasBo
Mitglied
TZ & Konstruktion


Sehen Sie sich das Profil von AndreasBo an!   Senden Sie eine Private Message an AndreasBo  Schreiben Sie einen Gästebucheintrag für AndreasBo

Beiträge: 861
Registriert: 16.11.2006

********
Wenn am Anfang alles schief geht,
nenne es Version 1.0!

erstellt am: 18. Jan. 2021 14:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Original erstellt von cadwomen:
HY

PM nicht Bekommen ?

cw


Bin nicht per Email benachrichtigt worden.

PowerQuery finde ich auch eine nicht schlechte Lösung.
Die zu kopierenden Daten befinden sich in eine Tabelle in SAP. Ich weiß inzwischen auch schon, das wenn ich in SAP die Excel-Funktion aufrufe, das eine "Tabelle für ALV(1)" angelegt wird. Ich weiß nur noch nicht, wo ich diese finde.

------------------
Gruß
AndreasBo
Ich nutze alte Boardsuche | Google | Netiquette | Wie stellt man Fragen richtig? | Systeminfo
********
PTC Creo 4
********
IntelCore i7-6820HQ CPU | @ 3,70GHz | Windows 7 Pro 64 BIT | 16GB RAM | Nvidia Quadro M1000M

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2021
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
Dell U3818DW + Dell U2412M Monitor

erstellt am: 18. Jan. 2021 14:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AndreasBo 10 Unities + Antwort hilfreich


18-01-_2021_14-25-24.jpg

 
Hy

ich nutze PowerQuery  seit einiger Zeit vermehrt,
Wichtig Daten müssen am selben Platz bleiben und nicht laufen wo anderst abgelegt sein
Dateinamen sind Wichtig sonst findet man hinterher nichts mehr im Code

und evtl kannst du auf die Daten ja auch direkt zugreifen ohne die SAP Excel Funktion

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

AndreasBo
Mitglied
TZ & Konstruktion


Sehen Sie sich das Profil von AndreasBo an!   Senden Sie eine Private Message an AndreasBo  Schreiben Sie einen Gästebucheintrag für AndreasBo

Beiträge: 861
Registriert: 16.11.2006

********
Wenn am Anfang alles schief geht,
nenne es Version 1.0!

erstellt am: 18. Jan. 2021 15:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Original erstellt von cadwomen:
...
und evtl kannst du auf die Daten ja auch direkt zugreifen ohne die SAP Excel Funktion

In die Richtung fehlt mir noch die Erfahrung.

------------------
Gruß
AndreasBo
Ich nutze alte Boardsuche | Google | Netiquette | Wie stellt man Fragen richtig? | Systeminfo
********
PTC Creo 4
********
IntelCore i7-6820HQ CPU | @ 3,70GHz | Windows 7 Pro 64 BIT | 16GB RAM | Nvidia Quadro M1000M

[Diese Nachricht wurde von AndreasBo am 18. Jan. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz