Informationen und Beispiele zum Thema ListBox | |
---|---|
![]() |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
Betrifft: Listbox und .rowsource (ActiveSheet)
von: Naki
Geschrieben am: 18.09.2019 13:58:05
Hallo.
Ich habe eine Listbox, die ich mit den Daten aus der Liste "Daten" befülle.
Gerne würde ich den Code universell nutzen, sodass ich die Listbao mit anderen Tabellen befüllen kann.
Ich kam auf die Idee, anstatt ".RowSource = "Daten!A1:F" & Letzte_Zeile" ".rowsource.ActiveSheet" zu nutzen, damit ich nicht jedes mal den Code ändern muss. (Wenn sich der Name des Tabellenblatts ändert funktioniert der Code ja nichtmehr.)
Leider komme ich nicht weiter. Hat jemand ein Tipp, wie ich es hinbekomme, dass die Listbox unabhängig vom Namen des Tabellenblatts nutzen kann?
Vielen Dank im Voraus
Naki
Sub Refresh_Data() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Daten") Dim Letzte_Zeile As Long Letzte_Zeile = Application.WorksheetFunction.CountA(sh.Range("A:A")) With Me.ListBox1 .ColumnHeads = True .ColumnCount = 6 .ColumnWidths = "30;50;50;50;50;50" .RowSource = "Daten!A1:F" & Letzte_Zeile If Letzte_Zeile = 1 Then .RowSource = "Daten!A2:F2" Else .RowSource = "Daten!A2:F" & Letzte_Zeile End If End With End Sub
Betrifft: AW: Listbox und .rowsource (ActiveSheet)
von: 1713659.html
Geschrieben am: 18.09.2019 14:00:13
Hallo,
so?:
.RowSource = ActiveSheet.Range("A1:F" & Letzte_Zeile)Gruss Torsten
Betrifft: AW: Listbox und .rowsource (ActiveSheet)
von: 1713660.html
Geschrieben am: 18.09.2019 14:03:22
Sorry,
war nicht ganz richtig:
.RowSource = ActiveSheet.Range("A1:F" & Letzte_Zeile).Address (external:=true)
Betrifft: AW: Listbox und .rowsource (ActiveSheet)
von: 1713663.html
Geschrieben am: 18.09.2019 14:20:25
Hallo Torsten,
vielen Dank für die prompte Antwort;
Es funktioniert :)
Gruß
Naki
Betrifft: gerne...
von: 1713676.html
Geschrieben am: 18.09.2019 14:51:31