Oder Verknüpfung bei "If Not Intersect" möglich?

[o0Julia0o]

hi,

dieser Code funktioniert:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H6:I40") Is Nothing Then
MsgBox "Änderung bemerkt"
End If
End Sub

Diese hier nicht. Es wird Arg (steht wohl für Argument) angezeigt, wenn ich Range("G1:G40") hinzufüge.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H6:I40"), Range("G6:G40") Is Nothing Then
MsgBox "Änderung bemerkt"
End If
End Sub

Jedoch wird kein Fehler angezeigt. Jedoch wird die MsgBox nicht aufgerufen, wenn ich H6 oder G6 ändere.

Wo liegt der Fehler? Oder ist eine Oder-Verknüpfung in dieser Code-Zeile nicht möglich - und ich muß 2 "If Not Intersect"-Codezeilen machen?

Julia :)

[Glausius]

Hallo, der Fehler liegt hier:

Code:

If Not Intersect(Target, Range("H6:I40"), Range("G6:G40") Is Nothing Then

es muss richtig heißen

Code:

If Not Intersect(Target, Range("H6:I40,G6:G40") Is Nothing Then

[Crazy Tom]

Hallo

warum nicht gleich G6:I40?

MfG Tom