ich habe auf einer UserForm eine Listbox welche in der Grösse nicht geändert werden darf. Daher möchte ich, dass die Schriftgrösse sich automatisch an die Listbox anpasst.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
Private Sub UserForm_Activate()
Dim intI As Long, MaxLength As Long
With ListBox1
For intI = 0 To .ListCount - 1
If Len(.List(intI, 0)) > MaxLength Then MaxLength = Len(.List(intI, 0))
Next
.ColumnWidths = .Width - 5 & "Pt"
'Beispiel für Listenbreite ca. 70
Select Case MaxLength
Case Is