Spalten in mehrspaltiger Listbox formatieren
22.01.2007 10:06:38
Till
mal wieder ein kleines Problem,
ich lasse in einer Listbox auf einer Userform die Spalten eines Tabellenblattes erscheinen.
Das ganze mache ich so:
Sub Listbox()
Dim Zeile2 As Integer, MyList(2836, 8), r As Integer, wksListe As Worksheet
Set wksListe = Worksheets("Wertetabelle")
Zeile2 = wksListe.Cells(wksListe.Rows.Count, "A").End(xlUp).Row 'letzte Zeile mit Daten
With Verkehr 'so heißt meine Userform
With .ListBox1 'so heißt die Listbox auf der die Werte aus der Wertetabelle angezeigt werden sollen
.ColumnHeads = False
.ColumnCount = 8
.ColumnWidths = 75
For r = 4 To Zeile2
If wksListe.Range("E" & r + 1) <> "" Then
.AddItem wksListe.Range("E" & r + 1) 'Datum
.List(.ListCount - 1, 1) = wksListe.Range("F" & r + 1) 'Zeit: am liebsten als "hh:mm:ss" formatieren!
.List(.ListCount - 1, 2) = wksListe.Range("D" & r + 1) 'Straßenname
.List(.ListCount - 1, 3) = wksListe.Range("K" & r + 1) 'Qges
.List(.ListCount - 1, 4) = wksListe.Range("X" & r + 1) 'QLkw
.List(.ListCount - 1, 5) = wksListe.Range("L" & r + 1) 'Speed: am liebsten als "#.##0." formatieren
.List(.ListCount - 1, 6) = wksListe.Range("V" & r + 1) 'B
.List(.ListCount - 1, 7) = wksListe.Range("T" & r + 1) 'LOS
End If
Next r
End With
End With
End Sub
Hierbei ist es gewollt, dass ich die Reihenfolge der Spalten neu anordne.
Das ganze funktioniert ziemlich gut. Gibt es dabei eine einfache Möglichkeit auch die benutzerdefinierten Formate mit zu übernehmen?
Spalte F soll z.B. als Uhrzeit also "hh:mm:ss" definiert sein, Spalte L als "#.##0."
Schon mal Danke!
Gruß Till
Anzeige