Autor
|
Thema: einfügen von Daten aus weiterer Tabelle (1031 mal gelesen)
|
AndreasBo Mitglied TZ & Konstruktion
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 / zitieren --> Unities abgeben:
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
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 13. Jan. 2021 14:32 <-- editieren / zitieren --> Unities abgeben: Nur für AndreasBo
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
Beiträge: 2624 Registriert: 02.05.2006 Office 2010; Office365 Visual Basic
|
erstellt am: 14. Jan. 2021 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für AndreasBo
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
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für AndreasBo
|
AndreasBo Mitglied TZ & Konstruktion
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 / zitieren --> Unities abgeben:
Zitat: Original erstellt von cadwomen: HYPM 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
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 / zitieren --> Unities abgeben: Nur für AndreasBo
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
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 / zitieren --> Unities abgeben:
|