ich habe ein kleines Makro, mit dem durch Doppelklick in eine Zelle im Bereich E8:E38 der Zeitwert "09:00" eingefügt wird.
Wie müsste man das Makro erweitern, dass bei erneutem Doppelklick in die Zelle der Wert wieder gelöscht wird?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Dim Z
Application.EnableEvents = False
Set Bereich = Range("E8:E38")
If InStr(Target.Address, ":") = 0 Then ' überprüfen ob mehr als eine Zelle markiert
Cancel = True
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende
' Abbruch, wenn Aktion nicht im Zielbereich
Target.Value = "09:00"
Else
For Each Z In Selection
Dim S As String
S = Z.Address
If Intersect(Z, Bereich) Is Nothing Then
Else
Cancel = True
Z.Value = "09:00"
End If
Next Z
End If
Ende:
Application.EnableEvents = True
End Sub
Gruß
mike49