Wünsche einen ruhigen Sonntag.
Habe folgendes Anliegen.
In einer Userform habe ich verschieden txt und cbo. In einer Combobox möchte ich 2 Spalten anzeigen lassen. Leider klappt das nur mit der ersten.
Kann mir einer helfen. Danke
Hier der Code:
Private Sub UserForm_Initialize()
Dim aRow, i As Long
With Worksheets("Kunden")
txt_Kunde = Worksheets("Auflistung").Cells(4, 1)
txt_Kommission = Worksheets("Auflistung").Cells(4, 2)
txt_Objekt = Worksheets("Auflistung").Cells(4, 3)
txt_Empfänger = Worksheets("Auflistung").Cells(4, 4)
txt_Rabatt = Worksheets("Auflistung").Cells(4, 5)
txt_Objektrabatt = Worksheets("Auflistung").Cells(4, 6)
txt_Datum = Worksheets("Auflistung").Cells(4, 7)
txt_Produzent = Worksheets("Auflistung").Cells(4, 8)
cbo_Sachbearbeiter = Worksheets("Auflistung").Cells(4, 9)
txt_Gueltigkeit = Worksheets("Auflistung").Cells(4, 10)
' bis hier ist alles gut.
aRow = Sheets("Mitarbeiterliste").[A65536].End(xlUp).Row
Application.EnableEvents = False
cbo_Sachbearbeiter.Clear
cbo_Sachbearbeiter.AddItem "Bitte wählen"
For i = 11 To aRow
cbo_Sachbearbeiter.AddItem Sheets("Mitarbeiterliste").Cells(i, 1)
Next i
cbo_Sachbearbeiter.ListIndex = 0
cbo_Sachbearbeiter.ColumnCount = 2
Application.EnableEvents = True
End With
' die 2. Spalte wird nicht angezeigt. Die 1. wird angezeigt
End Sub
Grüsse aus der Schweiz
Martin