Application.Intersect-Methode (Excel)

Artikel
04/07/2023

Gibt ein Range-Objekt zurück, das die rechteckige Schnittmenge von zwei oder mehr Bereichen darstellt. Wenn ein oder mehrere Bereiche aus einem anderen Arbeitsblatt angegeben werden, wird ein Fehler zurückgegeben.

Syntax

Ausdruck. Überschneiden (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27 , Arg28, Arg29, Arg30)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Arg1	Erforderlich	Range	Die sich schneidenden Bereiche. Es müssen mindestens zwei Range-Objekte angegeben werden.
Arg2	Erforderlich	Range	Die sich schneidenden Bereiche. Es müssen mindestens zwei Range-Objekte angegeben werden.
Arg3–Arg30	Optional	Variant	Ein sich überschneidendes Bereich.

Rückgabewert

Bereich

Beispiel

Im folgenden Beispiel wird die Schnittmenge der beiden benannten Bereiche rg1 und rg2 in Sheet1 ausgewählt. Wenn sich die Bereiche nicht schneiden, wird im Beispiel eine Meldung angezeigt.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

Im folgenden Beispiel werden die Worksheet.Range-Eigenschaft , die Application.Union-Methode und die Intersect-Methode verglichen.

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über