Schnittmenge FEHLER: Methode 'Range' des Objekts '_Global' ist fehlgeschlagen

0

Warum bekomme ich diesen Fehler: Die Methode 'Range' des Objekts '_Global' ist fehlgeschlagen, wenn ich:

Private Sub Workbook_SheetChange(ByVal WS As Object, ByVal Target As Range)
Dim NTT As Range
Set WS = ActiveSheet
Set NTT = WS.Range("$A$1:$U$154")

If Not Intersect(Target, Range("NTT")) Is Nothing Then     '< error Here

Aber nicht, wenn ich sage

Private Sub Workbook_SheetChange(ByVal WS As Object, ByVal Target As Range)
Dim NTT As Range
Set WS = ActiveSheet

If Not Intersect(Target, Range("A$1:$U$154")) Is Nothing Then

Leider muss ich in einem Code das folgende Format verwenden: Range ("Name")

Anao
quelle
Möglicher Migrationskandidat zu SO.
Chrismas007
1
@ Chrismas007 es ist perfekt zum Thema hier
Raystafarian
1
@ Chrismas007 wenn du es herausfordern möchtest, mach es bitte in meta .
Raystafarian
@Raystafarian OK Here you go Alle Kommentatoren scheinen zuzustimmen.
Chrismas007,

Antworten:

2

Sie müssen das Range-Objekt anstelle eines Strings verwenden

Dim WS As Worksheet, NTT As Range
Set WS = ActiveSheet
Set NTT = WS.Range("$A$1:$U$154")
If Not Intersect(Target, NTT) Is Nothing Then............

Sie waren sehr nah!

Garys Schüler
quelle