CommandButton startet UserForm nicht
Holger
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
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
Kann mir jemand hier aus dem Forum helfen?
Schöne Grüße
Holger
Anzeige