schon seit längerer Zeit habe ich ein Problem mit dem Umformatieren von Datumsspalten bei Datenimporten aus anderen Programmen. In einem Beitrag von Gestern hat Coach folgende Fromel vorgeschlagen:
Sub PerDaten()
Dim r As Range
For Each r In Selection
If Not (IsEmpty(r)) Then
If IsNumeric(r) Then
r.Value = CDbl(r)
ElseIf IsDate(r) Then
r.Value = CDate(r)
End If
End If
Next
End
Sub
Diese habe ich eingesetzt und sie funktioniert gut. Nur habe ich fünf ganze Spalten mit Datumswerten die es Umzuwandeln gilt, und das dauert doch seine Zeit.
Nun meine Frage:
Ist es möglich die Formel irgendwie zu beschleunigen, indem vielleicht nur die belegten Zellen der markierten Spalten abgeklappert werden? Oder gibt es sonst einen schnelleren Weg?
Bin euch dankbar für Tipps
Gruss bully