LaufzeitFehler 424 ,...Userform,...

Private Sub Workbook_Open()
UF1.Show 'hier meldet er den Fehler
Ens Sub
die hier auskommentierten Zeilen lösen einen "Laufzeitfehler 424, Objekt erforderlich " aus.( _
hier in fett dargestellt)

Private Sub UserForm_Initialize()
Me.Left = 0
Me.Top = 0
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
With UF1
cboFehler.List = Worksheets("Fehler_Maznahmen").Range("Fehlerschluessel").Value
'    cboMaznahmen.List = Worksheets("Fehler_Maznahmen").Range("B2:B19").Value
'    cboPersonEGM.List = Worksheets("Fehler_Maznahmen").Range("C2:C9").Value
'    cboPersonAn.List = Worksheets("Fehler_Maznahmen").Range("C2:C9").Value
cboGemeldet.List = Worksheets("Fehler_Maznahmen").Range("D2:D5").Value
End With
End Sub

Ich weis echt nicht mehr weiter, alles namentliche schon mehrfach auf Schreibfehler

untersucht, das Blatt/Sheet Fehler_Maznahmen visible gemacht , das soll eigentlich nicht sein,

aber so kann ich das schon mal ausschließen.

Wer Tipps ,...Hilfeeeeeee

Matze