Listboxe füllt sich nur mit Elementen der aktiven Tabelle

Private Sub Load_Click()

    

    

    Dim ThisYear As String

    ThisYear = Format(Now(), "YYYY")

        

    Dim Wahl As String

    Wahl = Datum_Jahr.Value

          

    Set sht = Worksheets(Wahl)

    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row     'Bestimmt die letzte Reihe der Liste

    



    

    With Liste

        .ColumnCount = 8

        .ColumnHeads = True

        .ColumnWidths = "40"

        .RowSource = "A2:H" & LastRow

    End With

    

    



End Sub