|
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:
1 2 3 | Dim lstCell As Range
Set lstCell = WsTarget.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1
|
kommt die Meldung "Fehler beim kompilieren".
Kannst Du mir das vieleicht noch erklären.
|