Hallo ich möchte per VBA ein "X" in Zelle eintragen bei nochmaligem doppelklick wieder austragen, in mehreren Bereichen zB A4:A24,B5:B34 usw
ich habe das Makro gefunden kann es aber nicht anpassen für mehrere Bereiche?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [H1:H16]) Is Nothing Then
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End If
End Sub

vielen Dank für eure Hilfe
Gruss mablu