Listbox und .rowsource (ActiveSheet)

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

Listbox und .rowsource (ActiveSheet)

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
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