Uhrzeit in ListBox

Forumthread: Uhrzeit in ListBox

Uhrzeit in ListBox

08.03.2017 12:52:23

Sven

Hi Leute
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Uhrzeit in ListBox

08.03.2017 12:55:38

Rudi
AW: Uhrzeit in ListBox

08.03.2017 13:01:36

Sven

AW: Uhrzeit in ListBox

08.03.2017 12:55:38

Rudi

Hallo,
.List(.ListCount - 1, 7) = Format(Sheets("Tabelle1").Cells(i, 36),"hh:mm:ss")
oder
.List(.ListCount - 1, 7) = Sheets("Tabelle1").Cells(i, 36).Text
Gruß
Rudi

AW: Uhrzeit in ListBox

08.03.2017 13:01:36

Sven

Vielen dank für die schnelle hilfe.
Grus Sven

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Uhrzeiten in einer ListBox anzuzeigen, musst Du sicherstellen, dass die Daten im korrekten Format angezeigt werden. Hier sind die Schritte:

Öffne den VBA-Editor: Drücke ALT + F11 in Excel.
Füge ein UserForm hinzu: Klicke auf Einfügen und wähle UserForm.
Füge eine ListBox hinzu: Ziehe eine ListBox auf das UserForm.

Füge den folgenden Code in das UserForm ein:

Private Sub UserForm_Initialize()
   Dim i As Long
   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) = Format(Sheets("Tabelle1").Cells(i, 36), "hh:mm:ss") ' Uhrzeit formatieren
           .List(.ListCount - 1, 8) = Sheets("Tabelle1").Cells(i, 37)
       Next i
   End With
End Sub

Starte das UserForm: Füge einen Button hinzu, um das UserForm zu öffnen.

Häufige Fehler und Lösungen

Fehler: Uhrzeit wird als Zahl angezeigt:
- Stelle sicher, dass Du die Format-Funktion verwendest:
```
.List(.ListCount - 1, 7) = Format(Sheets("Tabelle1").Cells(i, 36), "hh:mm:ss")
```
Fehler: ListBox bleibt leer:
- Überprüfe, ob die Daten in Tabelle1 vorhanden sind und ob Du die richtige Zeile und Spalte angibst.

Alternative Methoden

Eine alternative Methode, um die Uhrzeit in einer ListBox anzuzeigen, ist die Verwendung der .Text-Eigenschaft:

.List(.ListCount - 1, 7) = Sheets("Tabelle1").Cells(i, 36).Text

Diese Methode zeigt die Uhrzeit so an, wie sie in der Zelle formatiert ist, jedoch ohne zusätzliche Formatierung.

Praktische Beispiele

Angenommen, Du hast folgende Daten in Tabelle1 (Spalte 36):

ID	Name	Uhrzeit
1	Max	08:30:00
2	Lisa	14:45:00
3	Tom	19:00:00

Beim Ausführen des UserForms wird die ListBox die Uhrzeiten korrekt als hh:mm:ss formatieren.

Tipps für Profis

Datenüberprüfung: Stelle sicher, dass die Daten in der richtigen Form vorliegen. Du kannst die IsDate-Funktion verwenden, um die Gültigkeit der Uhrzeit zu überprüfen.
Dynamische Anpassungen: Wenn Du regelmäßig Daten aktualisierst, sorge dafür, dass Deine ListBox dynamisch bleibt, indem Du sie bei Bedarf neu lädst.

FAQ: Häufige Fragen

1. Warum wird meine Uhrzeit nicht korrekt angezeigt?
Das kann daran liegen, dass die Zelle in Excel nicht das richtige Format hat. Stelle sicher, dass die Zelle als Uhrzeit formatiert ist.

2. Kann ich auch andere Formate verwenden?
Ja, Du kannst das Format in der Format-Funktion anpassen, z.B. Format(Sheets("Tabelle1").Cells(i, 36), "hh:mm") für Stunden und Minuten.

3. Wie kann ich die ListBox sortieren?
Du kannst die Daten in Tabelle1 vor dem Hinzufügen zur ListBox sortieren oder die ListBox-Eigenschaft Sorted auf True setzen.

Beliebteste Forumthreads (12 Monate)