Zeile in VBA teilen
21.02.2019 14:10:41
Alex
folgende Situation.
Ich habe einen Code gefunden der bei Doppelklick auf eine Zelle diese mit einem "X" befüllt. Da klappt alles wunderbar.
Beim erstellen des Tabellenblattes hab ich dann immer die neuen Zellen die bei Doppelklick aktiviert werden sollen im Code hinzugefügt. Wie es zu erwarten war kam jetzt die Meldung "Bezeichner zu lang in der Zeile "If Not Intersect....." Ich denke dass die Zeile einfach zu lang ist.
Wie kann ich die Target-Zeile unterbrechen damit das wieder geht.
Hier der zuletzt funktionierende Stand des Codes:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [_1B1:_1B4,_1w2:_1w5,_1w1,_1ag1,_1Ar1:_1Ar4,_2w1,_2ag1,_2b1,_2l1,_3b1: _
_
_
_3b3,_3b4:_3b6,_3b7:_3b9,_3b10,_3b11,_3w1,_3w2,_3ar1:_3ar3,_3ar4:_3ar8,_3w3:_3w6,_3ab1:_3ab3, _
_4v1:_4aj11,_5b1:_5b8,_5w1:_5w8,_5ar1:_5ar3,_6b1:_6b6,_7b1:_7b7,_7q1:_7q7]) Is Nothing Then
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End If
End Sub
Vielen Dank schon mal im Voraus für eure Bemühungen.
Gruß Alex