Combobox nur zweiten Wert
19.06.2009 10:57:30
Quantum
Eine Frage hätte ich, da die Auswahl in meiner ComboBox1 etwas unschön ausschaut.
In meiner Tabelle steht erst in jeder zweiten Zelle ein Wert.
Kann ich in meiner Combobox die Platzhaltere die entstanden sind, aufgrund da keine Daten drin standen ausblenden oder so etwas in der Art.
Gibt es eine Möglichkeit, dies Anzupassen?
Danke und Gruß
Quantum
Sub UserForm_Activate()
Dim i
With ComboBox1
For i = 1 To 12
.AddItem Cells(1, i).Value
Next i
End With
With ComboBox2
For i = 1 To 12
.AddItem Cells(i, 1).Value
Next i
End With
With ComboBox3
.AddItem "Geplant"
.AddItem "Teilgenommen"
.AddItem "Kein Bedarf"
End With
End Sub
Anzeige