Office: In nächste Zeile springen

Hallo,

ich möchte per Knopfdruck eine Zelle befüllen. Ist das dann passiert, soll beim nächsten Knopfdruck die Zelle 1 weiter unten angesprochen werden.
Wie mach ich das am besten?

bisher siehts so aus:

Private Sub commandbutton1_click()

Dim i As Integer

i = 12

Sheets("Sheet1").Cells(i, 9) = Format(Now, "DD" & "." & "MM" & "." & "YYYY")

i = i + 1

End Sub


was mach ich falsch? *biggrin.gif*

:)

 

Hallo

Versuch mal so:

Option Explicit


Dim L As Long

Private Sub commandbutton1_click()
If L = 0 Then L = 12
Sheets("TAbelle1").Cells(L, 9) = Format(Now, "DD" & "." & "MM" & "." & "YYYY")
L = L + 1
End Sub

ransi