Hallo zusammen,
stimmen meine Anmerkungen zum Code? Habe mir damals nichts dazu aufgeschrieben.
Danke für das Feedback.
VG Eisi :-)
Dim rngLast As Range
With Workbooks("Test.xlsm").Sheets("Tabelle1")
If .Cells(1, 1) = "" Then ' A1 enthält Text
Set rngLast = .Cells(2, 1) ' dann beginne bei A2, weil in Zeile 1 ein Text steht
Else
Set rngLast = .Cells(Rows.Count, 1).End(xlUp).Offset(1) ' Setze den Cursor unter die letzte befüllte Zelle in Spalte 1
End If
End With