Combobox mit mehreren Spalten
09.04.2009 09:54:23
friedel
ich habe eine Combobox mit mehreren Spalten. Die Auswahl, Befüllung klappt ganz gut.
Allerdings habe ich nach der Auswahl im Listenfeld nur die Spalte 1 in der Anzeige über die ich auch auswähle. Die anderen Spaltenwerte fehlen wenn das Listenfeld wieder zugeklappt ist.
Was habe ich vergessen? So sieht mein Code aus:
Private Sub UserForm_Activate()
Dim lLetzte As Long
'Startseite.EigenerName.Value = Worksheets("Eigene").Range("A9")
lLetzte = Worksheets("Eigene").Range("A65536").End(xlUp).Row
With Me
With EigenerName
.Clear
.ColumnCount = 8
.ColumnWidths = "3,6 cm;3,6 cm;1,6 cm;1,3 cm;1,4 cm;2,3 cm;2,3 cm;2,3 cm;"
.RowSource = "Eigene!A11:H" & lLetzte
.TextColumn = 1 'hier muss ich vermutlich noch die anderen Spalten laden.
.ListIndex = 0
End With
End With
End Sub
Falls ich nun alle Spalten in der Combobox sehe, würde ich die Auswahl gern in Tabelle2 Zelle A5 speichern. Hab dazu aber noch keinen Code. Würde mich über einen Ansatz dazu freuen.
Gruß friedel