Hallo zusammen,

Ich möchte per Doppelklick ein eine Zelle den Inhalt für Pauseneintragungen ändernhabe z.B.(0.00 / 0.15 / 0.30 / 0.45)
Soweit  ist dass kein Problem nur wenn ich dass gleiche für eine andere Zelle mit anderem Inhalt machen möchte z.B.(Ja / Nein) bekomme ich dass ganze nicht mehr übersetzt.

Es wäre echt super wenn mir jemand kurz antworten könnte, vermutlich ist dass auch nur ein kleineres Problem.

lg

'*********************************************************************************
' Setzen der pausenzeiten bei Klick 0:15/ 0:30/ 0:45
'*********************************************************************************
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bereich As Range
Set bereich = Range("D12:P12")
If Intersect(Target, bereich) Is Nothing Then Exit Sub
Cancel = True
Select Case Target
    Case "": Target = "00:00"
    Case "00:00": Target = "00:15"
    Case "00:15": Target = "00:30"
    Case "00:30": Target = "00:45"
    Case "00:45": Target = ""
End Select

End Sub



'*********************************************************************************
' Setzen der Übernachtungen bei Klick Ja/Nein
'*********************************************************************************
'Private Sub Worksheet_BeforeDoubleClick(ByVal Nacht As Range, Cancel As Boolean)
'Dim bereich As Range
'Set bereich = Range("D50:P50")
'If Intersect(Target, bereich) Is Nothing Then Exit Sub
'Cancel = True
'Select Case Nacht
'    Case "": Nacht = "Ja"
'    Case "Ja": Nacht = "Nein"
'    Case "Nein": Nacht = ""
'End Select'

'End Sub