Werte einlesen Combobox
25.02.2008 15:52:07
Fred
ich habe folgendes Problem: ich möchte, sobald eine UserForm sich öffnet, dass eine Combobox mit 2 vordefinierten Werten "initialisiert" wird. Mein Code dazu sieht folgendermaßen aus. Problematisch ist jedoch, dass die Werte bei jedem öffnen der UserForm dazu geschrieben werden, so dass ich beim z.B. 3. Öffnen, alles 3 Mal in der Combobox stehen habe. Ich habe das Ganze schon mit List probiert, das funktioniert aber nicht. Was mache ich falsch?
Sub Userform_Activate()
' Unternehmensform
werte = Array("Personengesellschaft", "Kapitalgesellschaft")
For i = 1 To 2
ComboBox1.AddItem werte(i - 1)
Next
End Sub
Vielen Dank für eure Antwort!!!!
Gruß
Fred