ComboBox mit 2 Spalten
25.01.2005 21:53:49
Florian
mein Problem ist folgendes: ich möchte Daten aus einer Tabelle in die ComboBox einer UserForm schreiben. Die einfache Synthax ist mir klar:
Private Sub UserForm_Initialize()
With ComboBox1
.ColumnCount = 2
.ListStyle = fmListStyleOption
End With
For n = 1 To 16
ComboBox1.AddItem Sheets("Tabelle1").Columns("A").Rows(n)
Next n
End Sub
Ich habe die Anzahl der Spalten in der ComboBox auf 2 festgelegt. Nur leider habe ich keinen blassen Schimmer, wie ich den Inhalt der Spalten A und B des Blattes "Tabelle1" in die 2 Spalten der ComboBox bringen kann. Mit der oben aufgeführten Variante füllt er mir nur die erste von beiden Spalten. Weis jemand Rat???