Hallo,
ich fülle eine ListBox so:
Dim lR%
lR = Worksheets("e155").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "eG155!A1:H" & lR
ListBox1.ColumnsAutoFit
ListBox1.ListIndex = 1
Leider geht es mit der Zeile " ListBox1.ColumnsAutoFit" nicht. Mein wunsch war es, daß die Spalten, deren Werte in der tabelle unterschiedlich breit sind, in der LB automatisch angepaßt werden.
Geht das nicht?
Gruß ray