Laufzeitfehler 91
11.08.2017 12:29:16
_Domi_
folgendes Problem:
Ich habe eine Userform, beim Initialisieren wird abgefragt ob Tabellenblätter mit bestimmen Namen vorhanden sind, wenn nicht soll die Userform nicht geöffnet werden.
Das funktioniert auch soweit er springt durch eine If-Abfrage über das gesamte Initialisieren, bring eine Messagebox alles ohne Fehler.
Doch springe ich mit F8 bei End Sub weiter bring er mir den Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt."
Entferne ich das Unload Me funktioniert es.
Hier der Code:
Private Sub UserForm_Initialize()
Dim Einsätze As String
Dim myarray As Variant
Dim LängeArray As Integer
Dim Einsatzname As String
Dim Anfang As Integer
Anfang = 0
Einsätze = Aktuelle_Einsätze
myarray = Split(Trim(Einsätze), " ")
LängeArray = UBound(myarray) + 1
If LängeArray 0 Then
LängeArray = LängeArray - 1
If LängeArray = 0 Then
With ComboBox1
.AddItem Einsätze
End With
Else
For i = 0 To LängeArray
Einsatzname = myarray(i)
With ComboBox1
.AddItem Einsatzname
End With
Next i
End If
With ComboBox2
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
Frame1.Visible = False
Frame2.Visible = False
Label2.Visible = False
ComboBox2.Visible = False
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
Sheets("Übersicht").Activate
ElseIf LängeArray = 0 Then
MsgBox "Keine Aktiven Einsätze vorhanden!"
Unload Me
End If
End Sub
Danke und Gruß
Domi