ComboBox füllen
04.09.2003 06:48:11
Erich M.
wie kann ich nachstehenden Code abändern, dass die ComboBox2
beim Start bereits mit 8 % vorbelegt ist (alternativ kann
dann 9 % angeklickt werden):
Private Sub UserForm_Initialize()
Dim t As Integer
Dim Jahr As Variant
Dim K As Variant
Jahr = Array("1995", "1996", "1997", "1998", "1999", "2000", "2001")
K = Array("8 %", "9 %")
For t = 0 To 6
With ComboBox1
.AddItem Jahr(t)
End With
Next t
For t = 0 To 1
With ComboBox2
.AddItem K(t)
End With
Next t
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige