ich will Euch auch mal was gutes tun, ihr habt mir schon so oft geholfen.
Habe rausgefunden, wie man in einem UF in einer ListBox die Spalten "einzeln" formatieren kann (falls nicht schon bekannt - hier im Forum hab ichs nicht gefunden):
Private Sub Aktualisieren_Click()
Me.ListBox1.List() = Sheets("Liste").Range("a4:g3000").Value
Me.ListBox1.ColumnCount = 7 'Zuweisen der Spaltenanzahl
Me.ListBox1.ColumnWidths = "56,6; 250; 80; 55; 70; 130; 70" 'Zuweisen der Spaltenbreite in Pt - 1 cm ~ 28,3 Pt
End Sub
Vielleicht interessierts ja den Einen oder Anderen.
Schönes Wochenende Euch allen.
Gruß.
Frederic