Listbox füllen
06.02.2023 17:04:44
Chris
ich fülle eine dreispaltige Listbox mit RowSource. Solange die Datenquelle das aktive Tabellenblatt ist, kein Problem.
Wie muss folgendes Makro lauten, wenn das Sheet "DQ" nicht die aktive Tabelle ist und die Daten in der Listbox erscheinen?
lngletzte = Sheets("DQ").Cells(Rows.Count, 30).End(xlUp).Row
With UserForm3
.ListBox1.ColumnCount = 3
.ListBox1.ColumnHeads = True
.ListBox1.RowSource = Sheets("DQ").Range("AD2:AF" & lngletzte).Address
.ListBox1.ColumnWidths = "30;650;30"
End With
code>
Vielen DankChris