Moin Mrs. oder Mr. ????
Nachfolgend mal 2 Makros, die Dir die erste freie Zeile ermittelt.
Option Explicit
Sub Erste_Freie_Zelle_im_gesamten_Dokument()
Dim lngFirstRow As Variant 'Long
On Error GoTo errorhandler
lngFirstRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Offset(1, 0).Row
MsgBox "1. freie Zeile im gesamten Dokument befindet sich in Zeile " & lngFirstRow
Exit Sub
errorhandler:
MsgBox "Fehler!!! - 1. freie Zeile im gesamten Dokument könnte sich in Zeile " & lngFirstRow & " befinden"
End Sub
Sub Erste_Freie_Zelle_in_Spalte_A()
Dim lngFirstRow As Long
'Für andere Spalte als A die Indexzahl 1 gegen eine andere Spaltenindexzahl _
austauschen. Spalte B wäre z.B. die Zahl 2, Spalte C die Zahl 3 usw.
lngFirstRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
MsgBox "1. freie Zelle in Spalte A befindet sich in Zeile " & lngFirstRow
End Sub
Für Dein Vorhaben interessant sind die Zeilen in den Makros, die mit „
lngFirstRow =…..“ anfangen.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]