Application.Intersect (Excel)

Gibt ein Range -Objekt zurück, das die rechteckige Schnittmenge von zwei oder mehr Bereichen darstellt.

Intersect (Arg1, Arg2, ..., Arg30)


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

Arguments

Arg1, Arg2, ..., Arg30

Arg1 (Range) - Die sich schneidenden Bereiche.

Arg2 (Range) - Die sich schneidenden Bereiche.