ich suche für die Befüllung der zweiten Spalte einer 2-spaltigen ComboBox eine Lösung, da meine nicht so hinhaut:
Option Explicit
Sub WP01_Box()
Dim i%, index As Integer
Dim x As Variant
With Workbooks("WP00.xls").Sheets("Sum").ComboBox1
.Clear
Workbooks("WP00.xls").Sheets("BlattNamen").Activate
x = 1
While Sheets("BlattNamen").Cells(x, 1).Value <> ""
Workbooks("WP00.xls").Sheets("Sum").ComboBox1.AddItem Sheets("BlattNamen").Cells(x, 1).Value
x = x + 1
Workbooks("WP00.xls").Sheets("Sum").ComboBox1.List(index, 1) = Sheets("BlattNamen").Cells(x, 2).Value
index = index + 1
Wend
End With
End Sub
Das Problem ist das immer erst ab dem zweiten Wert (also aus der B-Spalte) angezeigt wird. Das muss irgendwie an dem "x+1" liegen, das ja auch beim "List" dann gilt?
Wie kann man das abändern?
Beispiel: https://www.herber.de/bbs/user/11128.xls
Mfg, Stefan