Datumsformat
25.12.2020 18:37:45
Longo
Mit folgendem Code übergebe ich die Daten von der Listbox an eine Tabelle:
'Daten auf Tabelle übertragen
With ThisWorkbook.Worksheets("Verkehrsunfälle")
For N = 0 To ListBox1.ListCount - 1
Tabelle4.Cells(N + 3, 2) = CDate(ListBox1.List(N, 0))
Tabelle4.Cells(N + 3, 3) = ListBox1.List(N, 1)
Tabelle4.Cells(N + 3, 4) = ListBox1.List(N, 2)
Tabelle4.Cells(N + 3, 5) = ListBox1.List(N, 3)
Tabelle4.Cells(N + 3, 6) = ListBox1.List(N, 4)
Tabelle4.Cells(N + 3, 7) = ListBox1.List(N, 5)
Tabelle4.Cells(N + 3, 8) = ListBox1.List(N, 6)
Tabelle4.Cells(N + 3, 9) = ListBox1.List(N, 7)
Tabelle4.Cells(N + 3, 10) = ListBox1.List(N, 8)
Tabelle4.Cells(N + 3, 11) = ListBox1.List(N, 9)
Tabelle4.Cells(N + 3, 12) = ListBox1.List(N, 10)
Tabelle4.Cells(N + 3, 13) = ListBox1.List(N, 11)
Tabelle4.Cells(N + 3, 14) = CDate(ListBox1.List(N, 12))
Next
End With
Dies funktioniert soweit gut. Die erste und die letzte Spalte haben Datum als Inhalt, weshalb ich CDate verwende. Die zweitletzte Spalte hat ebenfalls Datum als Inhalt, jedoch können auch Zellen leer sein. Deshalb funktioniert es bei dieser Spalte nicht mit CDate (leere Zellen werden automatisch aufgefüllt, was nicht so sein soll).Wie kann ich die zweitletzte Spalte als Datumsformat der Tabelle übergeben ohne dass die leeren Zellen aufgefüllt werden?
Gruss