Freigeben über


Application.Intersect-Methode (Excel)

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.
Arg3Arg30 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.