combobox

Private Sub ASteuerung_dropbuttonclick()
With ASteuerung
If .ListCount = 0 Then
.AddItem "1"
.AddItem "2"
.AddItem "3"
End If
End With
End Sub