Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Laufzeitfehler '91': Objektvariable oder W...

Forumthread: VBA Laufzeitfehler '91': Objektvariable oder W...

VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 21:06:28
Mat
Hallo Experten, ich habe mal wieder ein Problem, was mir einige Nerven kostet.
Ich habe ein Formular angelegt, um neue Datensätze anzulegen. Darin habe ich einige Kombifelder und Textfelder.
Meine Idee ist es, dass ich in einem Kombifeld aus den vorhandenen Datensätzen, einen auswähle und die restlichen Felder auf Basis des gewählten Datensatzes automatisch gefüllt werden. Leider bekomme ich immer folgenden Fehler
Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt
und weiß überhaupt nicht, woher er kommt. Ich hatte den Fehler vorher schonmal, habe anschließend den Code geändert und er war weg. Nun habe ich das Formular an einem anderen Rechner gestartet und der Fehler war wieder da.
Folgend der Code der betreffenden Private Sub.
Wenn der Fehler erscheint, ist die Zeile
ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
gelb hinterlegt.
Private Sub cmb_Tests_Change()
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
Call Name_Ws
slctTest = cmb_Tests.Value
wsData.Activate
'Finden des Eintrags aus dem Kombifeld im Blatt Rohdaten /
'Schreiben der Zeilennummer in Variable
    ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
Zeile = ActiveCell.Row()
'Formularfelder füllen
cmb_Prio.Value = Cells(Zeile, 6).Value
txt_Testzeit.Value = Cells(Zeile, 10).Value
txt_Beschreibung1.Value = Cells(Zeile, 38).Value
txt_Beschreibung2.Value = Cells(Zeile, 39).Value
Range("A1").Select
wsCp.Activate
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End Sub
Ich bin für jeden Tipp dankbar.
Gruß
Mat
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 21:46:10
Daniel
Hi
dann wurde dein Suchbegriff slctTest im Suchbereich nicht gefunden und es konnte der anschließende Select-Befehl nicht ausgeführt werden.
Ein Problem in deinem Code ist, dass die .Find-Funktion eine ganze Reihe von Parametern hat (alle eingeabemöglichkeiten, die du in der Menüfunktion SUCHEN hast) und du nur einen einzigen (what) fest vorgibst.
Dabei haben auch die anderen Parameter einen Einfluss darauf, ob der Suchbegriff gefunden werden kann (insbesondere lookat und lookin).
Diese solltest du auf jeden Fall mit angeben.
Anderenfalls wird die Einstellung der zuletzt gemachten Suche des Anwenders verwendet, was dann dazu führen kann, dass es mal funktioniert und mal nicht, je nachdem wie zuletzt gesucht wurde.
Gruß Daniel
Anzeige
AW: VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 22:43:25
onur 

dim rng as range
'Finden des Eintrags aus dem Kombifeld im Blatt Rohdaten /
'Schreiben der Zeilennummer in Variable
set rng=ActiveSheet.Range("E3:E1000").Find(What:=slctTest)
ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
......

Setze direkt hinter der Zeile mit "Set ..." einen Haltepunkt und lese im Debugger rng aus.
Ich schätze, dass rng leer ist und dein Select-Befehl "ins Leere greift".
Anzeige
AW: VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 23:43:04
Mat
Guten Abend.
Ich danke Euch Beiden wie verrückt. Habe Daniels Tipp beherzigt und die beiden Suchargumente noch angegeben. Seitdem funktioniert alles bestens.
Nochmals Danke und viele Grüße
Mat
AW: VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 22:44:33
onur 

dim rng as range
'Finden des Eintrags aus dem Kombifeld im Blatt Rohdaten /
'Schreiben der Zeilennummer in Variable
set rng=ActiveSheet.Range("E3:E1000").Find(What:=slctTest)
ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
......

Setze direkt hinter der Zeile mit "Set ..." einen Haltepunkt und lese im Debugger rng aus.
Ich schätze, dass rng leer ist und dein Select-Befehl "ins Leere greift".
Anzeige
AW: VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 22:46:46
onur
Ich meinte natürlich: lies rng aus, wenn der Fehler auftritt (ohne Haltepunkt).
;

Forumthreads zu verwandten Themen

VBA - Laufzeitfehler 91
Bibo

Hallo liebe EXCEL-Freunde,
mit nachstehendem Code, den ich hier aus dem Forum erhalten habe, werden zwei Bestandstabellen verglichen, Bestandsabweichungen in beiden Tabellen gelb sowie die in der Tabelle "Bestand_KOLIBRI" fehlenden Datensätze der Tabelle "Bestand_DVU_VTT" rot markiert.
...
20.07.2009 15:04:00
Thread-ID: 1089962
2 Beiträge
VBA - Laufzeitfehler 91 (editiert)
Bibo

Hallo liebe EXCEL-Freunde,
mit nachstehendem Code, den ich hier aus dem Forum erhalten habe, werden zwei Bestandstabellen verglichen, Bestandsabweichungen in beiden Tabellen gelb sowie die in der Tabelle "Bestand_KOLIBRI" fehlenden Datensätze der Tabelle "Bestand_DVU_VTT" rot markiert.
...
20.07.2009 13:41:12
Thread-ID: 1089963
6 Beiträge
VBA Laufzeitfehler 91
Christian

Hallo,
beim starten der Exceltabelle mit dem Windows taskmanager als geplanten Task
bekomme ich die Fehlermeldung:
Laufzeitfehler 91:
Objektvariable nicht festgelegt.
und beim Debugger bleibt das Makro Sub updBtn_Aktualisieren bei starquery.runtable .... in der fünften Zeil...
03.12.2009 10:56:07
Thread-ID: 1121197
2 Beiträge
Anzeige
objektvariable oder with-blockvariable nicht festg
Bernd

Hallo Forum,
ich erhalte bei folgendem Code in Zeile 3 immer die Nachricht "objektvariable oder with-blockvariable nicht festgelegt"
Private Sub Worksheet_Deactivate() Dim Timer1 As APITimer Timer1.Enabled = False Timer1.destroy End Sub Was ist zu tun?
Grüße, Bernd
26.02.2010 13:17:28
Thread-ID: 1141753
8 Beiträge
Objektvariable oder With-Blockvariable nicht festg
Flo

Hallo an alle,
ich hab da n kleines VBA Problem. Und zwar hab ich das makro nicht selbst geschrieben. Hab es auf der Arbeit von meinem Vorgänger übernommen und wenn ich es jetzt starten möchte, dann kommt die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt" !!!
K...
04.03.2010 15:39:48
Thread-ID: 1143350
3 Beiträge
Anzeige
Oobjektvariable oder with-blockvariable nicht fest
Marcel

objektvariable oder with-blockvariable nicht festgelegt
Hallo,
ich bin langsam am verzweifeln.
ich habe ein Makro in meiner Tabelle welches ein Datenbereich (der jeweils in einer Zeile liegt) aus einem anderen Tabellenblatt, nach dem Abgleich des Datums kopiert.
Danach springt e...
22.02.2012 16:22:53
Thread-ID: 1251893
5 Beiträge
Anzeige
Laufzeitfehler91 bei vba steuert IE
Tom

Hallo,
ich öffne aus excel heraus, per vba eine website mit dem IE
ich schreibe per vba in vier felder der website werte hinein,
die ich aus meiner excel-datei und
aus vba-eingaben, die ich beim vba-start vom user abfrage beziehe.
dann betätige ich per vba den senden-button...
14.09.2012 14:56:24
Thread-ID: 1278671
3 Beiträge
Blockvariable nicht festgelegt
Albert

Guten Abend zusammen,
mit diesem Suchbefehl lasse ich in meiner Datei im Sheet("Hilfe") ein Datum und einen Buchstaben suchen.
Sub Suchen()
Dim AE, AF as Range
With Wochenplan2
Set AE = Sheets("Hilfe").UsedRange.Find(what:=Wochenplan2.RSG.Value, LookIn:=xlFormulas, lookat:=x...
11.12.2013 21:47:34
Thread-ID: 1342244
6 Beiträge
Obejektvaribale oder With-Blockvariable nicht fest
matthias

Hallo
nach mehreren Versuche habe ich es hinbebkomen eine PDF erstellen zu lassen aus Excel, und diese per Email zu versenden.
Funktioniert alles.
Jedoch habe ich eine Schleife drin.
Es werden nur Email verschickt an die Datensätze aus Tabelle 1 die in Spalte D ein "P" haben.
01.07.2015 12:31:58
Thread-ID: 1434247
2 Beiträge
Objektvariable oder With-Blockvariable nicht...
Krümel

Hallo zusammen,
ich benötige bitte kurz Hilfe zu einem Code.
Ich möchte aus Excel heraus eine Worddatei öffnen, welche sich beim öffnen im Kundenordner als pdf abspeichern soll. Pfad und Dateiname steht in Zelle K2 im Worksheet "Daten"
Er gibt mir als Fehlermeldung:
"Objektvar...
15.02.2016 16:40:12
Thread-ID: 1475563
2 Beiträge
Objektvariable oder With-Blockvariable nicht festg
test

dim wert as variantOn Error GoTo ANRfehler
Columns(A_ANRSpalte).Select
Selection.Find(What:=wert, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=False).Activate
GoTo...
21.08.2002 14:10:00
Thread-ID: 151154
2 Beiträge
With block variable nicht festgelegt
Chris


Hallo Forum,
ich möchte mit untenstehendem Makro folgendes lösen:
Der Inhalt von Combobox4 ("anwesend" oder "abwesend") soll einer Zielzelle (...Offset,15), welche Excel sucht, zugeordnet werden. Dies funktioniert soweit.
Wenn in der Zielzelle das Wort "abwesend" hineingeschire...
25.08.2016 07:26:51
Thread-ID: 1511050
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Laufzeitfehler '91' beheben: Objektvariable oder With-Blockvariable nicht festgelegt

Schritt-für-Schritt-Anleitung

Um den Laufzeitfehler '91' in Excel VBA zu beheben, folge diesen Schritten:

  1. Überprüfe den Code: Stelle sicher, dass alle Objektvariablen korrekt deklariert sind. Zum Beispiel:

    Dim rng As Range

  2. Setze die Variable: Stelle sicher, dass die Objektvariable mit Set initialisiert wird:

    Set rng = ActiveSheet.Range("E3:E1000").Find(What:=slctTest)

  3. Überprüfe die Rückgabe von Find: Wenn der Suchbegriff nicht gefunden wird, könnte rng leer bleiben. Füge eine Bedingung hinzu, um dies zu überprüfen:

    If Not rng Is Nothing Then
   rng.Select
Else
   MsgBox "Suchbegriff nicht gefunden!"
End If

  4. Füge Suchparameter hinzu: Nutze alle verfügbaren Parameter der Find-Funktion, um die Suche zu optimieren:

    Set rng = ActiveSheet.Range("E3:E1000").Find(What:=slctTest, LookIn:=xlValues, LookAt:=xlWhole)

  5. Debugging: Setze Haltepunkte in deinem Code, um den Wert von Variablen während der Ausführung zu überprüfen.

Häufige Fehler und Lösungen

  • Fehler: Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.

    • Lösung: Überprüfe, ob die Variable korrekt gesetzt wurde und ob der gesuchte Wert existiert.

  • Fehler: ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select schlägt fehl.

    • Lösung: Füge eine Prüfung ein, ob das Ergebnis von Find nicht leer ist, bevor du Select verwendest.

Alternative Methoden

Falls das Problem weiterhin besteht, kannst du alternative Methoden zur Suche von Werten in Excel VBA in Betracht ziehen:

  1. Verwende Match: Anstatt Find zu verwenden, kannst du auch die Match-Funktion verwenden, um die Zeilennummer zu erhalten:

    Dim Zeile As Long
Zeile = Application.Match(slctTest, ActiveSheet.Range("E3:E1000"), 0)

  2. Loop durch die Zellen: Du kannst auch durch die Zellen iterieren, um den Suchbegriff zu finden:

    Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("E3:E1000")
   If Zelle.Value = slctTest Then
       Zelle.Select
       Exit For
   End If
Next Zelle

Praktische Beispiele

Hier ist ein Beispiel, wie du den Laufzeitfehler '91' vermeiden kannst:

Private Sub cmb_Tests_Change()
    Dim rng As Range
    Application.ScreenUpdating = False
    slctTest = cmb_Tests.Value
    Set rng = ActiveSheet.Range("E3:E1000").Find(What:=slctTest, LookIn:=xlValues, LookAt:=xlWhole)

    If Not rng Is Nothing Then
        rng.Select
        Zeile = rng.Row
        cmb_Prio.Value = Cells(Zeile, 6).Value
        txt_Testzeit.Value = Cells(Zeile, 10).Value
        txt_Beschreibung1.Value = Cells(Zeile, 38).Value
        txt_Beschreibung2.Value = Cells(Zeile, 39).Value
    Else
        MsgBox "Suchbegriff nicht gefunden!"
    End If

    Application.ScreenUpdating = True
End Sub

Tipps für Profis

  • Nutze Error Handling: Integriere Fehlerbehandlung in deinen Code, um Laufzeitfehler zu vermeiden.

    On Error Resume Next
' Dein Code hier
On Error GoTo 0

  • Dokumentiere deinen Code: Füge Kommentare hinzu, um die Funktionalität zu erklären und zukünftige Fehler zu vermeiden.

  • Teste in verschiedenen Umgebungen: Manchmal kann der Code auf einem anderen Rechner fehlerhaft sein, daher teste deinen VBA-Code auf verschiedenen Systemen.

FAQ: Häufige Fragen

1. Was bedeutet Laufzeitfehler '91'? Laufzeitfehler '91' tritt auf, wenn eine Objektvariable oder eine With-Blockvariable nicht festgelegt ist. Das bedeutet, dass du versuchst, auf ein Objekt zuzugreifen, das nicht existiert.

2. Wie kann ich den Laufzeitfehler '91' beheben? Überprüfe, ob die Objektvariable korrekt gesetzt ist und ob der gesuchte Wert existiert. Füge gegebenenfalls Fehlerprüfungen in deinen Code ein.

3. Was sind die häufigsten Ursachen für diesen Fehler? Die häufigsten Ursachen sind das Fehlen von Suchbegriffen, falsche Bereichsangaben oder nicht initialisierte Objektvariablen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige