Ich hatte vor, eine zweispaltige Combobox zu erstellen, dachte, es würde genau wie bei der ListBox funktionieren, irgendwie erscheint immer die Fehlermeldung "Typen unverträglich". Hab schon bei Google gesucht, aber nichts passendes gefunden. Vor dem Absturtz des Programmes hatte ich irgendeine Lösung gefunden - die ist aber weg.
Hier mal mein Code (Auschnitt):
Private Sub UserForm_Activate()
With Me.comb_text_wahl
.ColumnCount = 2
.ColumnWidths = "1cm;5cm"
.Clear
End With
With Sheets("Texte")
For i = 14 To Sheets("Texte").Cells(Sheets("Texte").Rows.Count, 1).End(xlUp).Row
Me.comb_text_wahl.AddItem
Me.comb_text_wahl(i - 14, 0) = .Cells(i, 1).Value
Me.comb_text_wahl(i - 14, 1) = .Cells(i, 2).Value
Next
End With
End Sub
Würde mich freuen, wenn sich dies kurz einer anschauen könnte - vielen Dank vorab!
Jonathan