Hallo Rainer,
hab doch noch eine Lösungen gefunden, ist vielleicht nicht optimal, aber sie funktioniert.
Sub nextEmpty()
Range("C1:C65536").End(xlDown).Offset(0, 0).Select
ActiveCell.End(xlDown).Offset(0, 0).Select
If IsEmpty(ActiveCell.Offset(1, 0)) Then
ActiveCell.Offset(1, 0).Activate
Else
Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown).Offset(1, 0).Activate
If Not (IsEmpty(ActiveCell)) Then nextEmpty
End If
End Sub
Gruß
fedjo