VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Beispiel zum Is-Operator

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