Um die erste freie Zelle, hier in Spalte A, zu ermitteln.

 

Public Sub Erste_freie_Zeile()

Dim lngLast As Long

lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1

MsgBox "Erste freie Zelle in Spalte A ist in Zeile: " & lngLast

End Sub

 

Die Zahl 1 in "Cells(Rows.Count, 1)" steht für Spalte A. Ersetzt man 1 gegen 2 so erhält man die erste freie Zelle in Spalte B usw.

 

Um die erste freie Spalte in Zeile 1 zu ermitteln.

 

Public Sub Erste_freie_Spalte()

Dim intLastS As Integer

intLastS = Cells(1, Columns.Count).End(xlToLeft).Column + 1

MsgBox "Erste freie Zelle in Zeile1 ist in Spalte: " & intLastS

End Sub

 

Hier steht die 1 in "Cells(1, Columns.Count)" nun für die oberste Zeile.