Hallo Sven,
kann eigentlich nicht sein, denn mit
letzteZ1 = .Cells(Rows.Count, 1).End(xlUp).Row
stelle ich die letzte benutzte Zelle der Spalte A fest. Das sollte dann in deinem Fall die Ueberschriftenzeile sein. Und mit:
.Cells(letzteZ1 + 1, 1).PasteSpecial xlPasteValues
fuege ich die Werte in die Zeile nach dieser letzten benutzten Zeile ein.
Hast du vielleicht nichts in Spalte A in Tabelle 1? Dann musst du halt die Spalte aendern, in der die letzte Zeile ermittelt wird.
|