Tabellenwerte in ListBox übertragen

habe wiedermal ein Problem/-chen !?

Ich lese aus einem Tabellenblatt einen bestimmten Bereich
in div. Variablen ein.

Dann fülle ich die ListBox mit den Inhalten der Variablen.

Problem: Obwohl nur die Variable Datum einen Wert enthält,
werden auch die Variablen Von Bis Pause als "00:00"
und Netto als "0,00" in der ListBox dargestellt.

Wenn die Variablen keinen Wert enthalten, soll in der ListBox
aber auch nichts angezeigt werden!

Hoffentlich habe ich mich verständlich ausgedrückt.

Danke an alle Helfer.

Ciao MikeS

Dim Datum As Date, Von As Date, Bis As Date, Pause As Date
Dim Projekt$, Beschreibung$
Dim Netto As Single

'[...]
             
'Listbox mit Tabellenwerten füllen
For Zeile = 7 To LetzteZeile
          
      'einen neuen Eintrag der Listbox1 hinzufügen
      frmÜbersicht.ListBox1.AddItem
      
      'Werte aus Tabelle in Variablen einlesen
      Datum = Cells(Zeile, 1).Value
      Projekt = Cells(Zeile, 2).Value
      Von = Cells(Zeile, 3).Value
      Bis = Cells(Zeile, 4).Value
      Pause = Cells(Zeile, 5).Value
      Beschreibung = Cells(Zeile, 6).Value
      Netto = Cells(Zeile, 7).Value
                              
      'Variablen in Listbox eintragen
      frmÜbersicht.ListBox1.List(Zeile - 7, 0) = Format(Datum, "DD DDD")
      frmÜbersicht.ListBox1.List(Zeile - 7, 1) = Projekt
      frmÜbersicht.ListBox1.List(Zeile - 7, 2) = Format(Von, "hh:mm")
      frmÜbersicht.ListBox1.List(Zeile - 7, 3) = Format(Bis, "hh:mm")
      frmÜbersicht.ListBox1.List(Zeile - 7, 4) = Format(Pause, "hh:mm")
      frmÜbersicht.ListBox1.List(Zeile - 7, 5) = Beschreibung
      frmÜbersicht.ListBox1.List(Zeile - 7, 6) = Format(Netto, "#,##0.00")
    
Next Zeile
  
'[...]