Datum im richtigen Format kopieren
29.01.2020 10:31:45
Sonja
ich habe 2 Tabellen mit Werten. Durch Ausführen des Markos werden durch das Stichwort "neu" in Spalte E, die Spalten A bis D in die nächsten freien Zeilen von der anderen Tabelle, selbe Spalten, kopiert.
Funktioniert alles ganz gut.
Wo ich nicht weiter komme ist: In Spalte A wird das Datum über =heute() generiert.
Wenn ich mit "values" arbeite, wandelt es das Datum in ein Zahlenformat.
Kann mir da einer helfen?
Sub kopieren()
Dim lngI As Long
With Worksheets("Zwischenspeicher")
For lngI = 2 To .Range("A65536").End(xlUp).Row
If .Cells(lngI, 5).Value = "neu" Then
With Worksheets("Kundenliste Akquise")
Rows(lngI).Columns("A:D").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
End With
End If
Next lngI
End With
End Sub