Hallo,
in einer Userform importiere ich Daten aus einem Tabellenblatt in eine Listbox. Eine Spalte ist dabei ein Datum.
Im ursprünglichen Tabellenblatt ist das Datum korrekt formatiert (ich muss damit Tage errechnen). Wenn ich jetzt die Einträge aus der Listbox in eine andere Tabelle schreiben möchte, ist das Format "Text" und ich kann nicht mehr damit rechnen.
Ich vermute vor dem kopieren muss das Datumsformat der Spalte aus der Listbox definiert werden. Ich weiß aber leider nicht wo.
Kann mir jemand bei dem Code helfen?
Aus der Listbox in das Tabellenblatt kopiere ich mit folgendem Code:
Private Sub CommandButton3_Click()
' in Warenausgang kopieren
Dim last As Integer
Worksheets("BESTAND").Activate
last = Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To ListBox1.ListCount - 1
Tabelle4.Cells(last, 1) = TextBox_Auftrag
Tabelle4.Cells(last, 2) = ListBox1.List(i, 0)
Tabelle4.Cells(last, 3) = ListBox1.List(i, 2)
Tabelle4.Cells(last, 4) = ListBox1.List(i, 3)
Tabelle4.Cells(last, 5) = TextBox_Datum
Tabelle4.Cells(last, 6) = ListBox1.List(i, 7)
Tabelle4.Cells(last, 7) = TextBox_Ort
Tabelle4.Cells(last, 8) = ListBox1.List(i, 1)
Tabelle4.Cells(last, 9) = ListBox1.List(i, 5)
Tabelle4.Cells(last, 10) = ListBox1.List(i, 6)
Tabelle4.Cells(last, 11) = ListBox1.List(i, 4)
last = last + 1
Next
Es geht um die 11. Spalte, also die letzte Zeile.
Danke
Andre