Wie kann der Vorgang aus der Transponierten Version gemacht werden?
(Die eingelesenen Daten in die cboListe stehen statt in A1:A25 in A1:Y1)
mit CurrentRegion.Rows(1) statt CurrentRegion.Columns(1) reichts nicht :-(
Private Sub UserForm_Initialize()
cboListe.List = Sheets("Tabelle1").Range("A1").CurrentRegion.Columns(1).Value
cboListe.ListIndex = 0
End Sub
Hat vielleicht jemand ´nen TIPP?
Danke u. Grüsse Lorenz