Hallo, 

ich hab wieder ein Problem, welches ich nicht lösen kann :( 

Bei .RowSource liefert er mir den Fehler: Ungültiger Eigenschaftswert

Mit Rowsource möchte ich die Tabellen Überschrift also Header festlegen. 

Der Code liegt unten. 

Private Sub ListBoxFuellen(DieListbox As MSForms.ListBox, DerRange As Range)
    With DieListbox
        .ColumnCount = DerRange.Columns.Count
        .ColumnWidths = "200; 0; 100; 0; 0; 0; 0; 0; 0; 100; 100; 200; 75;200;"
        .List = DerRange.Value
        .ColumnHeads = True
        .RowSource = "Blatt1!A2:G2" ' Hier ist der Fehler
    End With
End Sub
 


Private Sub UserForm_Initialize()
         
Dim lngLetzte As Long
    With Sheets(1)
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        ListBoxFuellen ListBox1, Blatt1.Range("A3:N" & lngLetzte)   
    End With
End Sub