Anstatt Zelle für Zelle ganzen Bereich bearbeiten
31.01.2007 08:57:45
Peter
Mit nachfolgendem Code stelle ich sicher, dass alle Einträge in der Spalte A (immer ein Datum) ein Datumsformat und nicht ein Textformat hat.
Bei Abarbeitung von rund 12'000 Zellen dauert das eine Weile. Deshalb meine Frage:
Gäbe es nicht eine bessere Lösung, z.B. den ganzen Range in den Zwischenspeicher nehmen, dann den Bereich korrekt formatieren und die Daten wieder zurückschreiben?
Kann mir jemand eine Hilfestellung geben?
Danke, Peter
Sub ConvertToDate()
Dim rngCell As Range
Dim lngLastA As Long
With Sheets("Journal") 'Tabellenname anpassen!
lngLastA = .Cells(Rows.Count, 1).End(xlUp).Row
End With
On Error Resume Next
For Each rngCell In Worksheets("Journal").Range("A1:A" & lngLastA)
If IsDate(rngCell.Value) Then
rngCell.Value = DateValue(rngCell.Value)
End If
Next rngCell
On Error GoTo 0
End Sub