Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bereich As Range
Set bereich = Range("D12:P12")
If Not Intersect(Target, bereich) Is Nothing Then
Cancel = True
Select Case Target
Case "": Target = "00:00"
Case CDate("00:00"): Target = "00:15"
Case CDate("00:15"): Target = "00:30"
Case CDate("00:30"): Target = "00:45"
Case CDate("00:45"): Target = ""
End Select
End If
Set bereich = Range("D50:P50")
If Not Intersect(Target, bereich) Is Nothing Then
Cancel = True
Select Case Target
Case "": Target = "Ja"
Case "Ja": Target = "Nein"
Case "Nein": Target = ""
End Select
End If
End Sub