Problem mit meinem VBA Code
12.10.2023 01:38:58
Minke1975
ich möchte mit meinem VBA code per Doppelklick ein x in verschiedene Zellen setzen, das funktioniert auch. Nun möchte ich aber das in den Bereichen b4:f4, b5:f5 usw jeweils nur ein x eingetragen werden kann. Leider klappt das nicht, da ich nicht weiß, wie ich die Range dafür angeben muss.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' x in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("b4:f9,b12:f16,b19:f21,b24:f28,b31:f37,b45:f49,b52:f56,b59:f65,b72:f75,b78:f81,b84:f90,b97:f104,b107:f111,b114:f119")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "x" Then
Target.Value = ""
Else
Target.Value = "x"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("b4:f4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If
End Sub