Zelleninhalt durch Doppelklick löschen
31.08.2014 14:23:44
mike49
Hallo zusammen,
ich habe ein Makro, dass die in einer Zelle im Bereich B7:AF42 getätigte Eingabe durch Doppelklick wieder löscht.
Jetzt möchte ich dies um den Bereich AR7:AS42 erweitern, weiß aber nicht wie.
In diesem Bereich soll durch Doppelklick nicht "U" eingetragen bzw. wieder gelöscht werden. Es werden hier nur Zahlenwerte eingetragen, die durch Doppelklick wieder gelöscht werden sollen. Das bestehende Makro soll in seiner Funktionalität erhalten bleiben. Hier werden auch die die eingetragenen Zahlenwerte durch Doppelklick wieder gelöscht.
Kann jemand helfen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const adRelBer$ = "B7:AF42", txRelSym$ = "U"
Cancel = Not Intersect(Target, Me.Range(adRelBer)) Is Nothing
If Cancel Then
Me.Unprotect
Target = IIf(IsEmpty(Target), txRelSym, Empty)
Target.Font.Color = IIf(Target = txRelSym, 255, 0)
Me.Protect
End If
End Sub
Grußmike49