Makro erweitern
28.12.2013 10:58:13
mike49
in meinem Arbeitsblatt wird in einem Bereich bei Doppelklick ein "U" gesetzt und bei erneutem Doppelklick wieder gelöscht.Auch manuell eingetragene Werte werden bei Doppelklick wieder gelöscht.
Jetzt möchte ich zusätzlich in einem anderen Bereich (AQ7:AR42) manuell eingetragenen Werte auch durch Doppelklick in die entsprechende Zelle über eine Makroerweiterung(?) wieder löschen. Das Anlegen eines neuen Makros "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" für diesen Bereich funktioniert nicht.
Geht das?
Hier das bestehende Makro:
Option Explicit
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