Laufzeitfehler 91 Objektvariable Oder With-blockvariable Nicht Festgelegt

Der Laufzeitfehler 91, oft angezeigt als "Objektvariable oder With-Blockvariable nicht festgelegt" in VBA (Visual Basic for Applications), ist einer der häufigsten und frustrierendsten Fehler, denen Programmierer begegnen können. Er signalisiert, dass Ihr Code versucht, auf ein Objekt zuzugreifen, das nicht initialisiert oder auf Nothing gesetzt wurde. In einfacheren Worten: Ihr Code will etwas benutzen, das es noch nicht gibt, oder das nicht mehr existiert. Dieser Artikel erläutert die Ursachen dieses Fehlers, gibt praktische Beispiele und bietet detaillierte Lösungen, um ihn zu beheben.

Ursachen für den Laufzeitfehler 91

Die grundlegende Ursache für diesen Fehler ist, dass eine Objektvariable deklariert wurde, ihr aber kein Objekt zugewiesen wurde, bevor der Code versucht, auf Eigenschaften oder Methoden dieses Objekts zuzugreifen. Das bedeutet, dass die Variable existiert, aber sie verweist auf keinen konkreten Speicherort im Computer. Hier sind einige der häufigsten Situationen, in denen dieser Fehler auftritt:

1. Nicht initialisierte Objektvariablen

Dies ist der häufigste Grund. Eine Objektvariable wird deklariert, aber ihr wird kein Wert zugewiesen, bevor sie verwendet wird. Zum Beispiel:

    Dim myWorksheet As Worksheet
    myWorksheet.Name = "NewSheet"  'Hier tritt der Fehler auf, da myWorksheet noch nicht initialisiert wurde
    

In diesem Fall wurde `myWorksheet` als `Worksheet`-Objekt deklariert, aber es wurde kein spezifisches Arbeitsblatt zugewiesen (z.B. durch `Set myWorksheet = ThisWorkbook.Sheets("Sheet1")`).

2. Objekt existiert nicht (mehr)

Es kann vorkommen, dass das Objekt, auf das der Code zugreifen möchte, nicht existiert oder zwischenzeitlich gelöscht wurde. Dies ist besonders häufig bei der Arbeit mit Excel-Objekten wie Arbeitsblättern oder Tabellen:

    Dim myWorksheet As Worksheet
    Set myWorksheet = ThisWorkbook.Sheets("NonExistentSheet") 'Wenn "NonExistentSheet" nicht existiert
    myWorksheet.Name = "NewSheet"  'Hier tritt der Fehler auf
    

Wenn das Arbeitsblatt "NonExistentSheet" nicht existiert, wird `myWorksheet` auf `Nothing` gesetzt, und jeder Versuch, auf Eigenschaften oder Methoden zuzugreifen, führt zu Fehler 91.

3. Falsche Objektreferenzen

Manchmal kann es vorkommen, dass eine Objektvariable zwar initialisiert wird, aber mit der falschen Art von Objekt. Dies kann insbesondere bei der Verwendung von `With`-Blöcken passieren, wenn die Variable innerhalb des `With`-Blocks nicht korrekt gesetzt wurde:

    Dim myRange As Range
    With ThisWorkbook.Sheets("Sheet1")
       Set myRange = .Cells(1, 1)  'myRange wird korrekt gesetzt
       .Value = "Hello" 'Fehler hier, wenn . nicht auf eine gültige Range verweist
    End With
    

In komplexeren `With`-Blöcken kann es vorkommen, dass der Bezug auf das Objekt innerhalb des Blocks unklar wird und zu Fehlern führt.

4. Fehlerhafte Schleifen und Bedingungen

Schleifen und bedingte Anweisungen können ebenfalls die Ursache sein, wenn innerhalb der Schleife oder bedingten Anweisung eine Objektvariable nicht korrekt initialisiert wird oder auf `Nothing` gesetzt wird:

    Dim myCell As Range
    For Each myCell In ThisWorkbook.Sheets("Sheet1").Range("A1:A10")
       If myCell.Value = "Delete" Then
         Set myCell = Nothing  'Hier wird die Variable auf Nothing gesetzt
       End If
       Debug.Print myCell.Address 'Fehler, wenn myCell Nothing ist
    Next myCell
    

In diesem Beispiel wird `myCell` innerhalb der Schleife auf `Nothing` gesetzt, wenn der Zellenwert "Delete" ist. Der nächste Zugriff auf `myCell` führt dann zu einem Fehler 91.

Lösungen für den Laufzeitfehler 91

Die Lösung für den Laufzeitfehler 91 liegt in der sorgfältigen Initialisierung und Überprüfung von Objektvariablen. Hier sind einige Schritte, die Sie unternehmen können:

1. Initialisieren Sie Objektvariablen immer

Stellen Sie sicher, dass Sie jeder Objektvariablen einen Wert zuweisen, bevor Sie versuchen, sie zu verwenden. Verwenden Sie das `Set`-Schlüsselwort, um einer Objektvariablen ein Objekt zuzuweisen. Zum Beispiel:

    Dim myWorksheet As Worksheet
    Set myWorksheet = ThisWorkbook.Sheets("Sheet1")
    If Not myWorksheet Is Nothing Then
      myWorksheet.Name = "NewSheet"
    Else
      MsgBox "Das Arbeitsblatt 'Sheet1' existiert nicht!"
    End If
    

Dieser Code weist `myWorksheet` das Arbeitsblatt "Sheet1" zu. Wenn das Arbeitsblatt nicht existiert, wird eine Meldung angezeigt, und der Code versucht nicht, auf ein `Nothing`-Objekt zuzugreifen.

2. Überprüfen Sie die Existenz des Objekts

Bevor Sie auf ein Objekt zugreifen, überprüfen Sie, ob es existiert. Verwenden Sie die `Is Nothing`-Überprüfung:

    Dim myWorksheet As Worksheet
    Set myWorksheet = ThisWorkbook.Sheets("Sheet1")
    If myWorksheet Is Nothing Then
      MsgBox "Das Arbeitsblatt 'Sheet1' existiert nicht!"
    Else
      myWorksheet.Name = "NewSheet"
    End If
    

Diese Überprüfung stellt sicher, dass Sie nur dann auf das Objekt zugreifen, wenn es tatsächlich existiert.

3. Verwenden Sie aussagekräftige Variablennamen

Die Verwendung klarer und aussagekräftiger Variablennamen erleichtert das Verständnis des Codes und die Vermeidung von Fehlern. Anstatt beispielsweise `obj` zu verwenden, verwenden Sie `myWorksheet` oder `myRange`. Dies macht den Code lesbarer und verständlicher.

4. Vermeiden Sie unnötige `With`-Blöcke

Während `With`-Blöcke den Code verkürzen können, können sie auch zu Verwirrung führen, insbesondere in komplexen Situationen. Verwenden Sie `With`-Blöcke sparsam und stellen Sie sicher, dass die Objektbezüge innerhalb des Blocks klar sind.

5. Debuggen Sie Ihren Code sorgfältig

Verwenden Sie den VBA-Debugger, um Ihren Code Schritt für Schritt auszuführen und die Werte der Variablen zu überwachen. Dies hilft Ihnen, den genauen Punkt zu identifizieren, an dem der Fehler auftritt, und die Ursache zu ermitteln. Setzen Sie Haltepunkte (Breakpoints) an verdächtigen Stellen im Code und verwenden Sie das Direktfenster (Immediate Window), um den Wert von Variablen zu überprüfen.

6. Fehlerbehandlung implementieren

Integrieren Sie Fehlerbehandlungsmechanismen in Ihren Code, um unerwartete Fehler abzufangen und zu behandeln. Verwenden Sie die `On Error`-Anweisung, um Fehler abzufangen und entsprechende Maßnahmen zu ergreifen. Zum Beispiel:

    On Error GoTo ErrorHandler

    Dim myWorksheet As Worksheet
    Set myWorksheet = ThisWorkbook.Sheets("Sheet1")
    myWorksheet.Name = "NewSheet"

    Exit Sub

ErrorHandler:
    MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
    

Dieser Code fängt jeden Fehler ab, der während der Ausführung auftritt, und zeigt eine Meldung mit der Fehlerbeschreibung an. Dies verhindert, dass das Programm unerwartet abstürzt und gibt Ihnen die Möglichkeit, den Fehler zu beheben.

7. Objektfreigabe

Besonders bei der Arbeit mit COM-Objekten (Component Object Model) ist es wichtig, Objekte freizugeben, wenn sie nicht mehr benötigt werden. Dies hilft, Speicherlecks zu vermeiden und die Leistung des Systems zu verbessern. Setzen Sie Objektvariablen, die nicht mehr benötigt werden, auf `Nothing`:

    Set myWorksheet = Nothing
    

Dies gibt den vom Objekt belegten Speicher frei.

Zusammenfassung

Der Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt" ist ein häufiges Problem in VBA, das jedoch durch sorgfältige Programmierung und Fehlerbehebung vermieden werden kann. Die wichtigsten Schritte zur Vermeidung dieses Fehlers sind die korrekte Initialisierung von Objektvariablen, die Überprüfung der Existenz von Objekten und die Implementierung von Fehlerbehandlungsmechanismen. Indem Sie diese Richtlinien befolgen, können Sie die Stabilität und Zuverlässigkeit Ihrer VBA-Anwendungen verbessern und die Frustration, die durch diesen Fehler verursacht wird, minimieren.

Denken Sie daran, dass sauberer, gut strukturierter Code nicht nur leichter zu verstehen ist, sondern auch weniger anfällig für Fehler. Investieren Sie Zeit in die Planung und Dokumentation Ihres Codes, um zukünftige Probleme zu vermeiden.