ComboBoxen füllen feht nicht
07.02.2018 08:15:58
Burak
also ich habe da an die etwa 10 ComboBoxen in der Userform und habe über folgenden Code versucht die ComboBoxen mit Einträgen zu füllen.
Private Sub UserForm_Activate()
ComboBox1.AddItem = "3430"
ComboBox1.AddItem = "3600"
ComboBox2.AddItem = "I400"
ComboBox2.AddItem = "I500"
ComboBox3.AddItem = "6"
ComboBox3.AddItem = "26"
ComboBox4.AddItem = "111"
ComboBox4.AddItem = "304"
End Sub
Fehler beim Kompilieren:
Function oder Variable erwartet.
Muss ich echt zuvor jeden Eintrag in eine Variable schreiben und sie darüber zur ComboBox hinzufügen?
Freundliche Grüße
PS: Kann ich dann einfach mit Code wie
If ComboBox1.Value = 3430 Then...
Range("A1").Value = ComboBox2.Value