Microsoft Excel

Herbers Excel/VBA-Archiv

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

Listbox und .rowsource (ActiveSheet)


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


Beiträge aus dem Excel-Forum zum Thema "Listbox und .rowsource (ActiveSheet)"