Ich habe mal wieder ein Problem, bei dem ich nicht weiter weiß. ich habe eine ComboBox und diese möchte ich befüllen. Mit nur einer ComboBoxspalte ist das kein Problem, ich möchte aber 2 Spalten in der ComboBox füllen. Die Spalten sollen mit 2 Arrays gefüllt werden. Nachfolgend mal mein Code, allerdings ohne die 2. ComboBoxspalte:
Dim arrColumn As Variant
Dim arrColumnNr As Variant
ReDim arrColumn(1 To 15)
ReDim arrColumnNr(1 To 15)
'Spaltenbuchstaben einlesen
For lngColumn = 1 To 15
arrColumn(lngColumn) = Lagereingang.Cells(1, lngColumn)
arrColumnNr(lngColumn) = lngColumn
Next lngColumn
With ComboBox2
.ColumnCount = 2
'Breite der Spalten in ComboBox
.ColumnWidths = "2cm; 2cm"
.List = arrColumn
'.List(?) = arrColumnNr
End With
Weiß jemand wie ich nun die 2. ComboBoxspalte mit dem Inhalt des Arrays arrColumnNr befülle?
Bin für jede Hilfe dankbar.
Danke und Gruß,
Kasimir