Copy von Listobject zu Listobject
14.12.2022 07:53:15
Listobject
ich möchte aus einer "smarten Tabelle" auf einem Arbeitsblatt in die letzte Zeile einer anderen "smarten" Tabelle auf einem anderen Arbeitsblatt kopieren.
In der "Archiv"-Liste wird beim Ausführen des Makros immer eine neue Zeile am Ende hinzugefügt. Das klappt soweit. Dies sollte sicherstellen, dass die bestehenden archivierten Daten nicht überschrieben werden.
Dass die gewünschten Daten von A nach B kopiert werden, klappt soweit; leider bekomme ich es nicht, hin in die letzte Zeile, erste Zelle zu springen. Für Hilfe wäre ich denkbar.
Sub Filter_Kopieren()
Application.ScreenUpdating = False
Archiv.ListObjects("tbl_archiv").ListRows.Add AlwaysInsert:=True
'Variablen dimensionieren
Dim rng As Range
'Tabelle in Range einlesen
Set rng = Tabelle8.ListObjects("Tabelle1").Range
'Autofilter setzen
rng.AutoFilter 15, "Ja"
'Gefilterte Tabelle kopieren
ActiveSheet.ListObjects("Tabelle1").DataBodyRange.Copy Archiv.ListObjects("tbl_archiv").DataBodyRange
ActiveWorkbook.SlicerCaches("Datenschnitt_Meldung__Z_P_1").ClearManualFilter
Archiv.Select
End Sub