wie kann ich in den Bereichen C3:P3, C5:P5, C7:P7 mit doppelklick ein x setzen und wenn ich nochmal draufklicke das x wieder entfernt wird. Bitte um hilfe.
mfg Sven
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:P3, C5:P5, C7:P7")) Is Nothing Then
If Target = "" Then Target = "X": Cancel = True: Exit Sub
If Target = "X" Then Target = "": Cancel = True: Exit Sub
End If
End Sub
Gruß Matthais