Intersect( range(xx), Target) in einem Modul
26.10.2015 21:23:51
Arthur
Ihr könnt mir sicher helfen. In einem Tabellenblatt möchte ich auf SelectionChange reagieren und eine Routine in einem Modul aufrufen, das u.A. die ausgewählte Zelle vergleicht. Leider kommt die Meldung: "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen". Warum?/ Wie geht's?
Im Tabellenblatt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ISectTest(Target)
End Sub
In einem Modul:Sub ISectTest(ByRef Target As Range)
If Not (Intersect(Range("myrange"), Target) Is Nothing) Then
Debug.Print "ok"
Else
Debug.Print "nok"
End If
End Sub Wo liegt mein Denkfehler?
Gruß, Arthur.