Hallo,
ich habe hier folgendes Makro gefunden um Daten von einer Tabelle als Werte in eine andere Tabelle zu schreiben:
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, 1)) Then
lRowT = lRowT + 1
Worksheets("Daten").Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
Das funktioniert eigentlich auch tadellos... ausser dass die Datumsangaben, welche als TT.MM.JJJJ (in der Ursprungstabelle) formatiert waren in m/d/yyyy umgewandelt werden, was ich nicht will... ich habe keine Ahnung warum.
Kann mir jemand sagen wie ich das korrigieren kann bzw. wie das Makro dann aussehen muss ?
Vielen Dank
Axel