ich werd irgenwie...
Habe eine UF, ein Command Button zum Beenden (Unload Me).
Leider kommt immer eine Fehlermeldung:
Laufzeitfehler 91:
"Objektvariable oder With-Blockvariable nicht festgelegt"
Was muß ich ändern ?
Gruß Walter
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Application.ScreenUpdating = False
Sheets("AlleTypen").Visible = True
Sheets("AlleTypen").Select
Sheets("AlleTypen").Unprotect ("bb")
ComboBox1.RowSource = "B4:B" & Cells(65536, 2).End(xlUp).Row
UserForm4.Show
'Application.ScreenUpdating = true
End Sub
Private Sub CommandButton1_Click()
UserForm4.Show <<<< Hier die Zeile ist gelb
End Sub