Zahlenformat in Listbox
20.02.2008 10:59:00
Frederic
ich hätt eine Frage:
Ich fülle eine Listbox (nicht über RowSource) aus einer Tabelle("Liste") Bereich, A1:H3000
Hierin enthalten sind Spalten mit Text, Datum und 3 mit Werten.
Meine Listbox zeigt mir die Zahlen aber unformiert an, z.B. 99 | 1009,95 etc.
Ich würde sie gerne formatiert anzeigen lassen.
Im Archiv bin ich leider auch nicht fündig geworden, da diesbezüglich so gut wie keine Einträge vorhanden sind.
Habt ihr einen Rat? Anbei mein Code für das Füllen und Anzeigen der Listbox:
Private Sub Aktualisieren_Click()
Dim vntArr
With Sheets("Liste")
vntArr = .Range(.Cells(7, 8), .Cells(65536, 1).End(xlUp))
End With
With Me.ListBox1
.ColumnCount = UBound(vntArr, 2)
.List = vntArr
End With
'Zuweisen der Spaltenanzahl
'Me.ListBox1.ColumnCount = 8
'Zuweisen der Spaltenbreite in Pt
'1 cm ~ 28,3 Pt
Me.ListBox1.ColumnWidths = "56,6; 120; 80; 80; 80; 80; 200; 40"
Me.ListBox2.List() = Sheets("Liste").Range("a1:h1").Value '- DAS IST DIE KOPFZEILE!!!!
'Zuweisen der Spaltenanzahl
Me.ListBox2.ColumnCount = 8
'Zuweisen der Spaltenbreite in Pt
'1 cm ~ 28,3 Pt
Me.ListBox2.ColumnWidths = "56,6; 120; 80; 80; 80; 80; 200; 40"
End Sub
Gruß
Frederic