Clever-Excel-Forum

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 Idea

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

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

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

Atlan

RPP63

UweD

Atlan