Office: (Office 2010) Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

User · 3. Dezember 2013

Kennt jemand diesen Fehler?

Dieser kommt bei mir wenn ich in der Tabelle über den Button eine VBA öffnen möchte. Wenn ich dann in der Laufzeitmeldung den Button Debuggen drücke wir die verknüpfte Datei geöffnet und im Code
Code:

Sub FormularAufruf3()
'Formular frmProjektdatenblatt aufrufen
frmBauherrschaft.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dies wird im Code dann gelb markiert (frmBauherrschaft.Show).

Kann mir jemand dazu weiterhelfen?

Vielen Dank im voraus.

:)

hary · 4. Dezember 2013

Moin
Hatten wir das nicht schon mal?
gruss hary

User · 4. Dezember 2013

Hallo Hary

Nicht mit meinem Wissen.

hary · 4. Dezember 2013

moin
Na hier. Das mit dem Frame.
http://www.ms-office-forum.net/forum...d.php?t=304953
gruss hary

User · 4. Dezember 2013

Hallo Hary

Das ist richtig da war das Problem mit dem frmBaustellenadresse das den gleichen Name hatte wie die Frame wie du richtig sagtest.

Jetzt habe ich das Problem dejoch in der frmBauherrschaft.
Habe diesen Namen auch noch geändert um sicher zu gehen jedoch ohne Erfolg.
Den Code den ich angegeben habe ist in dem Modul "Programmierung" abgelegt.

Interessant ist das dies über Monate funktioniert hat und jetzt auf einmal nichtmehr ohne, dass ich bewüsst etwas verändert habe.

hary · 4. Dezember 2013

Moin
dieser Teil
Code:

Private Sub UserForm_Initialize()
cboArchitektur.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BC3:BC65000")
cboProjektleitung.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BC3:BC65000")
cboBauherrschaft.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BM3:BM65536")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

macht Probleme und das kannst nur du testen
Es wird ja auf die Function WerteAuslesen zugegriffen.
Kommentierst du diese aus(musste ich ja machen) passt es.
gruss hary

User · 4. Dezember 2013

Hallo Hary

Da hast logischerweise absolut recht wenn ich diesen Teil ausklammere funktioniert es bei mir auch wieder.

Wenn ich das ganze mit dem Einzelschrittmodus teste bleibt er bei diesem Code stehen.
Code:

If optJA.Value Then Range("A14").Value = Range("A8").Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und das ist der gesamt Code
Code:

Private Sub UserForm_Initialize()

cboArchitektur.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BC3:BC65000")
cboProjektleitung.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BC3:BC65000")
cboBauherrschaft.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BM3:BM65536")

End Sub
Private Sub cmdWeiter_Click()

Sheets("Projektdatenblatt").Range("E7").Value = cboBauherrschaft.Value
Sheets("Projektdatenblatt").Range("E13").Value = cboBauherrschaft.Value
Sheets("Projektdatenblatt").Range("E19").Value = cboArchitektur.Value
Sheets("Projektdatenblatt").Range("E25").Value = cboProjektleitung.Value

If optJA.Value Then Range("A13").Value = Range("A7").Value
If optJA.Value Then Range("A14").Value = Range("A8").Value
If optJA.Value Then Range("A15").Value = Range("A9").Value
If optJA.Value Then Range("A16").Value = Range("A10").Value
If optJA.Value Then Range("H13").Value = Range("H7").Value
If optJA.Value Then Range("H14").Value = Range("H8").Value
If optJA.Value Then Range("H15").Value = Range("H9").Value
If optJA.Value Then Range("H16").Value = Range("H10").Value
If optNEIN.Value Then frmBaustellenadresse.Show
frmBauherrschaft.Hide

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst du mir sagen was ich hier falsch gemacht habe?

User · 6. Dezember 2013

Weis jemand dazu eine Lösung?

User · 9. Dezember 2013

Ich habe es selbst heraugefunden!
Ich war am Anfang absolut auf dem Holzweg.... könnte mich tretten!

Für alle die es interessiert:
wenn keine Daten in dem definierten Bereich zu finden sind bekommt mann diese Fehlermeldung zurück.
Bei mir was dies hier der Fall.
Code:

cboBauherrschaft.List = WerteAuslesen("\\SBS201\Bibliothek\Benutzerdatenbank IS\Adressdaten.xlsm", "Tabelle1", "BM3:BM65536")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht kann ja irgendjemand von meiner Erfahrung mal profitieren.

EarlFred · 9. Dezember 2013

Hallo Namenloser,

dann zweifle ich an, dass der Fehler in der von Dir benannten Zeile auftritt... Mit den irreführenden, lückenhaften Angaben, die Du machst, ist es wirklich schwer, Dir zu helfen.
Und den Hinweis, dass Du mal prüfen solltest, ob die Angaben im Funktionsaufruf stimmen (stimmig sind), hast Du schon vor zig Tagen bekommen. Da hätte Dir das sicher auffallen müssen.

Aber das Problem lässt sich ja leicht abfangen:
Code:

Option Explicit
Private pObjAL As Object

Property Get objAL() As Object
If (pObjAL Is Nothing) Then
Set pObjAL = CreateObject("System.Collections.Arraylist")
End If
Set objAL = pObjAL
End Property
Function WerteAuslesen(ByRef strDatnam As String, ByRef strTabelle As String, ByRef strBereich As String) As Variant

Dim fVarEinlesen As Variant, i As Long
Dim rngTemp As Range

Application.ScreenUpdating = False
With Workbooks.Open(strDatnam)
Set rngTemp = Intersect(.Worksheets(strTabelle).Range(strBereich), .Worksheets(strTabelle).UsedRange)
If Not rngTemp Is Nothing Then
fVarEinlesen = rngTemp.Value
For i = LBound(fVarEinlesen, 1) To UBound(fVarEinlesen, 1)
If fVarEinlesen(i, 1) > "" Then
If Not objAL.contains(fVarEinlesen(i, 1)) Then
objAL.Add CStr(fVarEinlesen(i, 1))
End If
End If
Next i
End If
.Close savechanges:=False
End With
Application.ScreenUpdating = True

objAL.Sort
WerteAuslesen = objAL.toarray
objAL.Clear
Set rngTemp = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code aus dem Internet, vor allem wenn auf freiwilliger Hilfe basierend, ist grundsätzlich nur als Ansatz für den weiteren Ausbau gedacht (zumindest ich mache mir nicht die Mühe, den auf den letzten Punkt hin zu schreiben, sondern ich erwarte, dass der Fragesteller dies selbst tut - Fehlerbehandlung, Betrachtung von Ausnahmefällen usw.). Es ist also nie gut, Code blind zu verwenden, den man nicht versteht.

Grüße
EarlFred

Office: (Office 2010) Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt - Similar Threads - Laufzeitfehler Objektvariable With

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

Objektvariable Blockvariable Laufzeitfehler 91

Laufzeitfehler 91: Objektvariable... nicht festgelegt