Ich suche folgende VBA Lösung:
In Spalte A:A soll in der ersten leeren Zelle das aktuelle Datum eingetragen werden und dann die Zelle rechts davon aktiv sein.
Bin aber leider ein VBA Anfänger.
Vielen Dank
Herbert
Sub p()
ActiveSheet.Range("A65536").End(xlUp).Activate
ActiveCell = Date
ActiveCell.Offset(0, 1).Activate
End Sub
Sub p()
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Activate
ActiveCell = Date
ActiveCell.Offset(0, 1).Activate
End Sub
ActiveSheet.Range("A65536").End(xlUp).Activate
aktivierst du nicht die erste leere Zelle in Spalte A, sondern die letzte nicht leere.Sub test()
If Range("A1") = "" Then
Range("B1").Select
Else
Range("A1").End(xlDown).Offset(0, 1).Select
End If
ActiveCell.Offset(0, -1) = Date
End Sub
Gruß Ingolf
Sub Suchen ()
i=1
do while cells (i,1).value <> ""
i=i+1
loop
cells (i,1).value=date
cells (i,2).select
End Sub