Hallo,
wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?
Normalerweise kann ich ja z.b. mit :
If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.
Das klappt mit:
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
leider nur mittelmäßig.
Beispiel:
'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")
'Ich markiere Zelle B1 bis B2
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
'Ergebnis = Keine MsgBox - richtig
'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")
'Ich markiere Zelle A1 bis A10
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
'Ergebnis = MsgBox erscheint - richtig
'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")
'Ich markiere Zelle A1 bis B1
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
'Ergebnis = keine MsgBox - falsch, das soll nicht passieren
'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")
'Ich markiere Zelle A1 bis C1
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
'Ergebnis = keine MsgBox - falsch, das soll nicht passieren
'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")
'Ich markiere Zelle B1 bis B15
If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"
'Ergebnis = keine MsgBox - falsch, das soll nicht passieren
Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.
Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD