Zahlen in Listbox
Volker
ich Versuche in einer mehrspaltigen UF Listbox Zahlen darzustellen.
In Spalte 3 soll eine Dezimalzahl angezeigt werden. Dazu muss ich
die Spalte ja dementsprechend formatieren. Ich habe aber keine
Ahnung wie:-( . Kann mir jemand helfen?
Danke und Gruß
Volker
Sub sbFill()
Dim Blatt As Worksheet, arrList()
Dim n As Integer, m As Integer
ReDim arrList(1 To Worksheets.Count, 1 To 8)
UserForm1.ListBox2.Clear
For Each Blatt In ThisWorkbook.Worksheets
m = m + 1
For n = 1 To 8
arrList(m, n) = Blatt.Cells(50, n)
Next n
Next Blatt
With UserForm1.ListBox2
.ColumnCount = 8
.List = arrList
End With
End Sub
Anzeige