Hallo Kati,

Button1 ist für Kommen, Einträge in Spalte A
Button2 ist für Gehen, Einträge in Spalte B

Private Sub CommandButton1_Click()
   Cells(Range("A65536").End(xlUp).Row + 1, 1).Value = Format(Time, "hh:mm")
End Sub

Private Sub CommandButton2_Click()
   Cells(Range("B65536").End(xlUp).Row + 1, 2).Value = Format(Time, "hh:mm")
End Sub

Gruß
Rainer

Hey!
ich habs mal ausprobiert, bin vom prinzip total begeistert!
Hab aber noch ein kleines problem, also erst mal meine formel:

Sub Kommen()
Dim i As Integer
For i = 3 To 33
If Cells(j, i) = Day(Now) Then
For j = 11 To 33 Step 2
If Cells(j, i) = Finde() Then
Cells(j, i) = Format(Application.WorksheetFunction.Round(Time * 288, 0) / 288, "hh:mm")
End If
Next
End If
Next
End Sub

damit möcht ich einfach erreichen, dass wenn ich auf "kommen" dann auf "gehen" und dann noch mal auf "kommen" drücke (wg. pausen oder ähnlichem) in die nächste freie zelle derselben spalte springt, also unter die "gehen"-zeit. vielleicht muss ich noch sagen, dass ich die tage eines monats in einer zeile angeordnet hab und nicht in die spalte.

Hallo kathi,

tut mir leid, aber ich kann Deiner Beschreibung geistig leider nicht folgen.
Vielleicht versteht's jemand anders.

Gruß
Rainer