Doppelklick-Makro erweitern
02.02.2018 21:54:30
mike49
ich habe ein Makro, dass bei Doppelklick im Bereich B12:B37 die Uhrzeit "07:30" einträgt und bei erneutem Doppelklick den Eintrag wieder löscht. Das funktioniert auch:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' ActiveSheet.Unprotect
If Not Intersect(Target, Range("B12:B37")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 2
Target = "07:30"
'Target.Font.Color = -16776961
' Target.Offset(0, 6) = CDate("1:58")
End Select
Else
Target = ""
' Target.Offset(0, 6).ClearContents
' Target.Font.ColorIndex = xlAutomatic
End If
End If
' ActiveSheet.Protect
End Sub
Wie kann man dieses Makro erweitern, dass manuell gemachte Einträge in den Bereichen A12:A37 und C12:C37 durch Doppelklick gelöscht werden?