Office: Listbox mit Uhrzeit füllen

Hallo,

ich fülle eine Listbox mit folgendem Code:

Dim lLetzte As Long ' Listbox füllen mit mehr wie 10 Spalten
Dim rBereich As Range
Dim aBereich As Variant
Dim lZeile As Long
Dim vTemp As Variant
Application.ScreenUpdating = False
On Error GoTo Fehler

TextBox17.Value = Date

With Tabelle9
lLetzte = .Range("A65536").End(xlUp).Row
lLetzte = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set rBereich = .Range("A8:Q" & lLetzte) ' Range bestimmen hier Zelle A8 - Q

End With

aBereich = rBereich

With ListBox1 ' Abstände der Spalten zueinander
.ColumnCount = rBereich.Columns.Count
.ColumnWidths = "1,7 cm;1,7 cm;1,7 cm;1,7 cm;1,7 cm;1,7cm;1,7cm;1,7cm;1,7cm"
.List() = aBereich
'.ColumnHeads = True
End With


In B steht die Uhrzeit. Diese wird in der Listbox allerdings nur als 0,xxxxxx wiedergegeben. Wie kann ich die korrekte Uhrzeit in der Listbox anzeigen lassen?

Vielen Dank für eure Hilfe

Gruß Daniel

:)

 

Hallo Daniel,

probier es so.

Dim lLetzte As Long ' Listbox füllen mit mehr wie 10 Spalten
'Dim rBereich As Range
Dim aBereich As Variant
Dim lZeile As Long
Dim vTemp As Variant

Application.ScreenUpdating = False
On Error GoTo Fehler

TextBox17.Value = Date

With Tabelle9
'lLetzte = .Range("A65536").End(xlUp).Row '?
lLetzte = .Cells.SpecialCells(xlCellTypeLastCell).Row
'Set rBereich = .Range("A8:Q" & lLetzte) ' Range bestimmen hier Zelle A8 - Q 'unnötig!
aBereich = .Range("A8:Q" & lLetzte)

For lZeile = 1 To UBound(aBereich, 1)
aBereich(lZeile, 2) = Format(aBereich(lZeile, 2), "hh:mm:ss")
Next
End With

With ListBox1 ' Abstände der Spalten zueinander
.ColumnCount = UBound(aBereich, 2)
.ColumnWidths = "1,7 cm;1,7 cm;1,7 cm;1,7 cm;1,7 cm;1,7cm;1,7cm;1,7cm;1,7cm"
.List() = aBereich
'.ColumnHeads = True
End With





« Gruß Sepp »

 

Danke. hat wunderbar geklappt!!!