ich habe ein "UserForm1" mit einigen Feldern. Wenn ich die UserForm aus dem VB-Editor starte läuft alles fehlerfrei.
Wenn ich allerdings die UserForm1 über einen CommandButton in Tabelle1 starten will, bekomme ich immer den Laufzeitfehler '1004' - Anwendungs- oder objektdefinierter Fehler.
Der ganz einfache Code in Tabelle 1 lautet:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Der Code in der UserForm1 lautet dann (zum Fehlertesten Verkürzt):Private Sub UserForm_Initialize()
Dim rng As Range
With Sheets("Vorgaben")
For Each rng In .Range(Cells(1000, 1).End(xlUp).Offset(0, 0), Cells(2, 1))
UserForm1.ComboBox1.AddItem rng
Next
For Each rng In .Range(Cells(1000, 2).End(xlUp).Offset(0, 0), Cells(2, 2))
UserForm1.ComboBox2.AddItem rng
Next
For Each rng In .Range(Cells(1000, 3).End(xlUp).Offset(0, 0), Cells(2, 3))
UserForm1.ComboBox3.AddItem rng
Next
For Each rng In .Range(Cells(1000, 4).End(xlUp).Offset(0, 0), Cells(2, 4))
UserForm1.ComboBox4.AddItem rng
Next
End With
End Sub
Ich bin am verzweifeln, da ich einfach keinen Fehler finde. Die Onlinesuche hat auch keine Lösung gebracht.Kann mir jemand hier aus dem Forum helfen?
Schöne Grüße
Holger