Verwendung von intersect in vba (mit beispielen)

Sie können die Intersect- Methode in VBA verwenden, um einen Bereich zurückzugeben, der den Schnittpunkt zweier bestimmter Bereiche darstellt.

Hier ist eine gängige Methode, diese Methode in der Praxis anzuwenden:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Sie können diese Funktion dann direkt in eine Excel-Tabelle eingeben und dabei zwei Bereiche angeben. Die Funktion gibt dann jeden der Werte in dem Bereich zurück, der den Schnittpunkt dieser beiden Bereiche darstellt.

Die folgenden Beispiele zeigen, wie Sie diese Funktion in der Praxis mit dem folgenden Datensatz in Excel nutzen können:

Beispiel 1: Finden Sie den Schnittpunkt zweier Bereiche (mit einer Zelle als Ergebnis)

Angenommen, wir möchten den Zellenwert zurückgeben, der den Schnittpunkt zwischen dem Bereich A2:C2 und A1:A11 darstellt.

Wir können die folgende Funktion in VBA definieren:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Wir können diese Funktion dann direkt in eine Zelle unserer Tabelle eingeben:

Die Formel gibt den Wert Mavs zurück, der den Schnittpunkt der Bereiche A2:C2 und A1:A11 darstellt:

Beispiel 2: Finden Sie den Schnittpunkt zweier Bereiche (mit mehreren Zellen als Ergebnis)

Angenommen, wir möchten den gesamten Zellbereich zurückgeben, der den Schnittpunkt zwischen dem Bereich A1:C3 und A1:B10 darstellt.

Wir können die folgende Funktion in VBA definieren:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Wir können diese Funktion dann direkt in eine Zelle unserer Tabelle eingeben:

Die Formel gibt den gesamten rechteckigen Wertebereich zurück, der den Schnittpunkt der Bereiche A1:C3 und A1:B10 darstellt:

Hinweis : Die vollständige Dokumentation zur VBA- Intersect -Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie die Anzahl der verwendeten Spalten
VBA: So zählen Sie Zeilen in einer Tabelle
VBA: So zählen Sie die Anzahl der Blätter in einer Arbeitsmappe