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ß TinoDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen