Office: Laufzeitfehler 91: Objektvariable... nicht festgelegt

Hallo Zusammen,

ich erhalte im meinem Code den Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt. Der Code lief bis vor kurzem noch, jetzt will er aber nicht mehr und ich habe absolut keine Ahnung wieso.

Könnte jemand bitte so nett sein und mir bei meinem Problem helfen? Über eine Erklärung, warum der Fehler auftritt würde ich mich auch freuen, damit ich in Zukunft das Problem selbst lösen kann.
Schon mal vielen Dank für jedgliche Hilfestellungen und Antworten.

Code:
Private Sub Workbook_Open()
Dim VorMon As String
Dim Mon As Range


ThisWorkbook.Worksheets("Übersicht").Activate

'Befüllt die Dropdownliste mit Konten aus der Bilanz Bsp.: Rohstoffe, Guss, Normteile....
Worksheets("Übersicht").ComboBox1.List = ThisWorkbook.Worksheets("Beschriftungen").Range("A2:A28").Value

Daten = Worksheets("Übersicht").ComboBox1.List

'Prüfung, ob in Monatsspalte in Reiter "Hilfstabelle" aktuelle Monatswerte stehen
'Ermittlung des Vormonats und eintragen in die Variable VorMon
VorMon = Format(CDate(DateSerial(Year(Date), Month(Date) - 1, 1)), "mmmm yy")

'Sucht im Reiter "Hilfstabelle" nach dem Vormonat und prüft, ob in der Spalte Werte stehen.
With ThisWorkbook.Worksheets("Hilfstabelle").Range("2:2")
Set Mon = .Find(VorMon, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
Var1 = Mon.Column
'For i = 3 To 3
If Worksheets("Hilfstabelle").Cells(3, Var1).Value = "" Then
If MsgBox("Bilanzwerte eintragen für" & " " & VorMon & "" & "!", vbOKCancel) = vbOK Then
ThisWorkbook.Worksheets("Hilfstabelle").Activate
Else
ThisWorkbook.Worksheets("Übersicht").Activate
End If
End If
'Next i
End With
End Sub

Der Fehler tritt bei "Var1=Mon.column" auf.

Danke Euch und schöne Grüße
Tendo

:)

 

Hallo Tendo,

vor allem solltest du alle Variablen sauber deklarieren.

 

Hi,

ich würde sagen, die Variable Mon ist leer, weil das Datum VorMon nicht gefunden wurde. Prüfe, ob sie belegt ist und führe den Code nur dann aus:

Code:

 

Hallo Beverly,

vielen Dank für deine Hilfe! Das Problem ist gelöst.

Grüße
Tendo