Listbox aus Tabelle 3 füllen. (Hajo Beispiel)
26.11.2019 17:28:15
Peer
Ich möchte eine ListBox in einer UF als Suche mit Daten aus der Tabelle "Reiseziele" füllen. Bei der Suche nach einer Lösung bin ich Hajo's Beispiel gestoßen und habe es meinen Bedürfnissen anpassen wollen.
Nur zeigt es mir den Inhalt der Tabelle 1 an statt aus Tabelle "Reiseziele".
Was habe ich übersehen?
With Worksheets("Reiseziele")
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' Adressbereich der Listbox zuweisen
lst_Zieladresse.RowSource = "A1:C" & LoLetzte
lst_Zieladresse.ColumnCount = 3 ' Spaltenanzahl der Listbox einstellen
End With
LG
Peer
Anzeige