https://ibb.co/b6nHjqz
anbei auch meine Excel:
https://www.herber.de/bbs/user/152590.xlsm
lg :)
' VERARBEITUNGSROUTINEN
'Diese Routine wird aufgerufen um die Liste (ListBox1) zu leeren, einzustellen und neu zu füllen
Private Sub LISTE_LADEN_UND_INITIALISIEREN()
Dim lZeile As Long
Dim lZeileMaximum As Long
Dim i As Integer
'Alle TextBoxen leer machen
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Me.Controls("TextBox" & i) = ""
Next i
ListBox1.Clear 'Liste leeren
' X Spalten einrichten Zahl der Spalten eingeben
ListBox1.ColumnCount = 10
'Spaltenbreiten der Liste anpassen (0=ausblenden, nichts=automatisch)
'";;; ......."
ListBox1.ColumnWidths = "19;20;30;40;50;60;70;80;90;100" '
cu
Userform1.ListBox1.ColumnWidths = "19;20;30;40;50;60;70;80;90;100"
VG