Hilfe bei DropDown in UserForm
18.02.2020 13:23:02
Luna
mit VBA kenne ich mich nicht wirklich aus. Habe mich trotzdem mal daran gewagt mir eine UserForm mit einer ComboBox zu erstellen. Habe mir im Internet dazu Videos angeschaut. Jetzt möchte ich ein DropDown Menü mit der ComboBox verknüpfen und das habe ich wie beschrieben in den Videos versucht. Ich kann die UserForm öffnen und soweit ist es ok aber ich bekomme die Einträge für das DropDown nicht hinein. Es ist alles leer.
Hier mal der Code:
Private Sub UserForm1_Initialize()
Dim lngZeileMax As Long
lngZeileMax = DropDown.UsedRanged.Rows.Count
With Me.ComboBox1
.RowSource = "DropDown!A2: A" & lngZeileMax
.Style = fmStyleDropDownList
.ListIndex = 0
.ListRows = 5
.Font.Bold = True
.ForeColor = RGB(0, 0, 255)
End With
End Sub
Viele Grüße Luna