ComboBox in Tabelle
19.11.2018 14:00:18
Schnider
Ich finde überall die Anleitung dazu, wie man den ersten Wert in einer Combobox einstellt. Aber die Anleitung funktioniert nicht bei einer Combobox in einer Tabelle. Wie verhält es sich denn da?
ComboBox1.Listindex = 0 (funktioniert nicht.
Mein Code ist:
Private Sub Workbook_Open()
With ThisWorkbook.Worksheets("Bestellformular")
.ComboBox1.List = Application.Transpose(Workbooks("Lieferanten.xlsm").Worksheets("Kunden"). _
_
_
Range("A4:A170"))
.ComboBox2.List = Application.Transpose(Workbooks("Kostenstellen.xlsm").Worksheets("Konten") _
_
_
.Range("B4:B123"))
.ComboBox3.List = Application.Transpose(Worksheets("Abteilungsleiter").Range("A2:A10"))
.ComboBox4.List = Application.Transpose(Worksheets("Mitarbeiter").Range("A2:A10"))
.Range("A20").Value = Date
End With
End Sub
Anzeige