Herbers Excel-Forum - das Archiv
Listbox und .rowsource (ActiveSheet)
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ListBox
- Listbox und .rowsource (ActiveSheet) von Naki vom 18.09.2019 13:58:05
- AW: Listbox und .rowsource (ActiveSheet) - von Torsten am 18.09.2019 14:00:13
- AW: Listbox und .rowsource (ActiveSheet) - von Torsten am 18.09.2019 14:03:22
- AW: Listbox und .rowsource (ActiveSheet) - von Naki am 18.09.2019 14:20:25
- gerne... - von Torsten am 18.09.2019 14:51:31
Betrifft: Listbox und .rowsource (ActiveSheet)
von: Naki
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)
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