Uhrzeit in ListBox
08.03.2017 12:52:23
Sven
ich möchte in einer ListBox daten angezeigt bekommen. In einer Spalte stehen uhrzeiten aber ich bekomme nur eine Zahl mit kommastellen angezeigt. Wie kann ich das ändern?
Gruß Sven
Private Sub UserForm_Initialize()
Dim i As Long
With ComboBox1
For i = 1 To 31
.AddItem i
Next i
End With
With ComboBox2
For i = 1 To 12
.AddItem i
Next i
End With
With ComboBox3
For i = 1904 To Year(Date)
.AddItem i
Next i
End With
With ListBox1
For i = 1 To Sheets("Tabelle1").Cells(65536, 29).End(xlUp).Row
.AddItem Sheets("Tabelle1").Cells(i, 29)
.List(.ListCount - 1, 1) = Sheets("Tabelle1").Cells(i, 30)
.List(.ListCount - 1, 2) = Sheets("Tabelle1").Cells(i, 31)
.List(.ListCount - 1, 3) = Sheets("Tabelle1").Cells(i, 32)
.List(.ListCount - 1, 4) = Sheets("Tabelle1").Cells(i, 33)
.List(.ListCount - 1, 5) = Sheets("Tabelle1").Cells(i, 34)
.List(.ListCount - 1, 6) = Sheets("Tabelle1").Cells(i, 35)
.List(.ListCount - 1, 7) = Sheets("Tabelle1").Cells(i, 36) 'hier soll die Uhrzeit _
angezeigt werden
.List(.ListCount - 1, 8) = Sheets("Tabelle1").Cells(i, 37)
Next i
End With
End Sub