kennt jemnd den Befehl um in Spalte a in die erste freie Zelle zu springen ?
mit Dank
Walter
Private Sub CommandButton1_Click()
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
End Sub
MfG Dirk
Private Sub CommandButton1_Click()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub
Außderdem funktioniert dieser Code nur, wenn die Zellen A1 und A2 beschrieben sind, ansonsten gibts ein falsches Ergebnis. Wenn dies vorkommen kann, müsste es extra geprüft werden:
Private Sub CommandButton1_Click()
if range("A1")="" Then
Range("A1").select
elseif Range("A2")="" Then
Range("A2").select
else
Range("A1").End(xlDown).Offset(1, 0).Select
end if
End Sub
Gruß, Daniel