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
|