Folgendes Problem:
Ich lade Daten aus einer excel liste in eine userfom Listbox.
Tabellenblatt1 Spalte R2:W500
Leider lädt er mir die ersten 3 Spalten nicht.
Schriftart ist in Listbox und Excel Tabellenblatt gleich.
Gruß Michael
Private Sub UserForm_Initialize()
Dim breite(18 To 22) As Single
Dim spaltenbreite As String
For i = 18 To 22
breite(i) = Sheets(1).Columns(i).ColumnWidth * 5.075
spaltenbreite = spaltenbreite & breite(i) & ";"
Next
With Me.ListGeb
.ColumnCount = 5
.ColumnHeads = True
.RowSource = "r2:w500" & lzeile
.ColumnWidths = spaltenbreite
End With
End Sub