In diesem Beispiel wird die Schnittmenge zweier benannter Bereiche ("rg1" und "rg2") in Sheet1 markiert. Existiert für die Bereiche keine Schnittmenge, wird eine Meldung angezeigt.
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
In diesem Beispiel wird in Spalte B von Sheet1 nach dem Vorkommen des Wortes "Phoenix" gesucht und anschließend die Zelle angezeigt, in der dieses Wort enthalten ist. Wird das Wort nicht gefunden, wird eine Meldung angezeigt.
Set foundCell = Worksheets("Sheet1").Columns("B").Find("Phoenix") If foundCell Is Nothing Then MsgBox "The word was not found" Else MsgBox "The word was found in cell " & foundCell.Address End If