16.03.2017, 17:23
hi,
dieser Code funktioniert:
Diese hier nicht. Es wird Arg (steht wohl für Argument) angezeigt, wenn ich Range("G1:G40") hinzufüge.
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 :)
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 SubDiese 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 SubWo 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 :)