VBA – Is Nothing

In diesem Tutorial zeigen wir Ihnen, wie Sie die Anweisung Is Nothing in VBA verwenden können.

Die VBA-Anweisung Is Nothing verwendet den VBA-Operator „Is“ und prüft, ob ein Objekt einer Objektvariablen zugewiesen worden ist.

Sub ObjektPruefen()
Dim bereich as Range
If bereich Is Nothing Then
  Msgbox "Bereich nicht zugewiesen"
End If
End Sub

Wir können auch die Anweisung Not mit Is Nothing mit einer If-Anweisung verwenden, um sicherzustellen, dass ein Bereich der deklarierten Bereichsvariablen zugewiesen wurde und dann den Code ausführen, den wir ausführen möchten, wenn dies der Fall ist.

Sub ZugewiesenerBereichPruefung()
  Dim bereich as Range
  Set bereich = Range("A1:A6")
  If Not bereich Is Nothing Then
    '' hier etwas Code ausführen
  End If
End Sub

Wir können die Anweisung Is Nothing für jeden Objekttyp verwenden. Sie kann sehr nützlich sein, um Fehler in unserem Code zu vermeiden, wenn ein Objekt einer Objektvariablen nicht zugewiesen werden kann.

Wir können zum Beispiel eine Arbeitsblattvariable verwenden und sie dem aktuellen Blatt (ActiveSheet) zuweisen. Wenn wir dies erfolgreich tun, können wir A2 in diesem Blatt auswählen.

Sub ArbeitsblattObjektPruefen() 
Dim ws as Worksheet
Set ws = ActiveSheet
If Not ws Is Nothing Then 
   ws.Range("A2").Select
End If
End Sub

Im obigen Code wird die Zelle A2 ausgewählt. Wenn wir die Zeile „Set ws=ActiveSheet“ entfernten, würde die If-Anweisung diese Codezeile umgehen und die Zelle A2 würde nicht ausgewählt werden.

Is Nothing kann auch in anderen Anwendungen von Microsoft Office wie PowerPoint, Outlook, Access und Word verwendet werden. Der folgende Code prüft, ob das Dokumentobjekt dem aktuellen Word-Dokument zugewiesen worden ist.

Sub DokumentObjektPruefen()
Dim wdDoc as Document
Set wdDoc = ActiveDocument
If wdDoc Is Nothing then
  MsgBox "Dokument nicht zugeordnet"
Else
  MsgBox "Dokument zugeordnet"
End If
End Sub