doppel klick verhindern

[Atlan]

Morgen,
ich habe folgenden Quode in VBA eingegeben,
Aber kriege immer Fehlermeldung 1004,

Die Zellen A1:A1002;B2:B1002;K2:K1002;O2:O1002;AA2:AA1002 sollen vor doppelklick gesperrt sein,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A1002;B2:B1002;K2:K1002;O2:O1002;AA2:AA1002")) Is Nothing Then Cancel = True
End Sub


Finde den Fehler nicht.
Brett vor dem Holzkopf, wer kann mir Helfen?
Danke

[RPP63]

Moin!
Bei mir werden Bereiche innerhalb des Strings durch Kommata getrennt!

Code:

If Not Intersect(Target, Range("A1:A1002,B2:B1002,K2:K1002,O2:O1002,AA2:AA1002")) Is Nothing Then Cancel = True

Zur Not bekommt man so etwas auch dem Makrorekorder heraus!

Gruß Ralf

[UweD]

Hallo

nimm mal im Range-Bereich ein Komma anstelle von Semikolon.


LG UweD

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A1002,B2:B1002,K2:K1002,O2:O1002,AA2:AA1002")) Is Nothing Then Cancel = True
End Sub

[Atlan]

habe dauernd mit den Klammern probiert.
Danke und schöne Woche gewünscht