|
Hey H27!
Das ist wirklich eine schöne Lösung. Perfekt! Vielen Dank dafür das werde ich auch so nutzen.
Ich verstehe den Lösungsansatz mit
'NächsteLeereZeile = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row + 1' nicht.
Wenn ich beim vorherigen Skript folgendes ergänze:
Dim lstCell As Range 'letze beschiebene Zelle in [A:A]
Set lstCell = WsTarget.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1
kommt die Meldung "Fehler beim kompilieren".
Kannst Du mir das vieleicht noch erklären.
|