Ich habe im Range A1:A30 Datumsangaben (Mo 01.01.2014) stehen.
Nun möchte ich per vba automatisch alle Zellen mit Datumsinhalten in Spalte B kopieren, dies Angabe jedoch als Text anzeigen. Nicht mehr im datumsformat.
Hat da jmd eine Lösung?
Chris
Sub Beispiel()
Dim rng As Range
With Range("A1:A30")
.Offset(, 1).NumberFormat = "@"
For Each rng In .Cells
rng.Offset(, 1).Value = rng.Text
Next rng
End With
End Sub
Gruß Tino