Hallo zusammen,

über ein Formularsteuerlement soll jedem Klick +1 in einer bestimmten Zelle hinzugezählt werden.
Dabei soll zwischen 06:00-14:00, 14:00-22:00 und 22:00 bis 6:00 der Wert in drei unterschiedlichen Zellen hinzugezählt werden.
Mit der aktuellen Version zählt dies aber immer in allen drei Zellen.
Danke für eure Antworten


Sub Schaltfläche19_Klicken()
With ThisWorkbook.Sheets("26")
'Frühschicht
.Range("A5").Value = Time + 4
If Range("A5").Value = Time CDate("06:00:00") And Time CDate("13:59:59") Then
Range("H18") = Range("H18") + 1
End If

'Spätschicht
If Range("A5").Value = Time CDate("14:00:00") And Time CDate("21:59:59") Then
Range("J18") = Range("J18") + 1
End If

'Nachtschicht
If Range("A5").Value = Time CDate("22:00:00") And Time CDate("23:59:59") Then
Range("F18") = Range("F18") + 1
End If

If Range("A5").Value = Time CDate("00:00:00") And Time CDate("05:59:59") Then
Range("F18") = Range("F18") + 1
End If

End With
End Sub