Zwei Mal If inersect Ranges nach Worksheet change
26.02.2008 11:22:41
Andreas
ich tüftle an einem Problem mit Worksheet change.
Ich habe zwei Bereiche (Range_1 = A1:A20; Range_2 = B1:B20) auf einem Blatt. Wenn ich irgendwo Range_1 anspreche dann soll Aktion_1 ausgeführt werden, wenn ich Range_2 anspreche, soll Aktion_2 ausgeführt werden. Der Code soll immer bei dem Change Ereignis starten
Das ist mein bisheriger Code nach dem Trial and Error Verfahren:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("Bereich_1").Address Then
MsgBox "TEST_1"
End If
If Target.Address = Range("Bereich_2").Address Then
MsgBox "TEST_2"
End If
End Sub
Wie kann ich dieses an sich banale Problem lösen? Ist Target. Address der richtige Ansatz, oder doch besser intersect? (If intersect Range_1 then Aktion_1 Else If Intersect...) Das hatte ich auch schon probiert, aber es kamen Debugger Meldungen, die ich nicht lösen konnte.
Dank und Gruß, Andreas