habe aber einen Fehler beim Kompilieren von AddItem.
"Zuweisung einer Konstanten nicht möglich!"
~~~~~~~~~~
Private Sub ComboBox1_Change()
ComboBox1.AddItem = "Apfel"
ComboBox1.AddItem = "Birne"
End Sub
~~~~~~~~~~~~~~
Danke!
Private Sub ComboBox1_Change()
ComboBox1.AddItem = "Apfel"
ComboBox1.AddItem = "Birne"
End Sub
Private Sub UserForm1_Initialize()
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Birne"
End Sub
Private Sub UserForm1_Initialize()
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Birne"
Sheets("Material der Wände").Cells(17, 8) = ComboBox1.Value ' tabellennamen anpassen
End Sub
Private Sub ComboBox1_Change()
Sheets("Material der Wände").Cells(17, 8) = ComboBox1.Value
End Sub
Private Sub UserForm1_Initialize()
combobox1.clear
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Birne"
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Birne"
End Sub
Private Sub UserForm1_Initialize()
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Birne"
End Sub