Hallo VBA-Forum,

ich habe eine Userform mit einer ListBox:

Private Sub UserForm_Initialize()

    Dim Loletzte As Long

    With ListBox1
        .ColumnCount = 6
        .ColumnWidths = "3cm;3cm;0cm;0cm;0cm;3cm"
        .ColumnHeads = True
    
    Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ListBox1.RowSource = "Tabelle1!A2:F" & Loletzte
    
    End With
    
End Sub

Meine Fragen hierzu:

1.) Ist es möglich die Spaltenüberschriften vorzugeben (momentan nimmt er die Überschriften aus Zeile 1)?

2.) Ist es möglich die Spaltenbreite dynamisch nach dem Inhalt der längsten Zelle anzupassen?

Grüße und schonmal Danke :-)

Joseph