Hallo,
Ich habe ein kleines Makro gebaut, um ein Datumsformat zu ändern. Das Datum bekomme ich aus einem Datenexport aus einem System und möchte diese Daten aufbereiten, um sie in ein anderes System einzufügen. Da das wöchentlich passieren soll, möchte ich das effektiv gestalten.
Das Exportformat ist beispielsweise: 1/31/2020 0:00
Das Inportformat muss: 31.01.2020 sein.
Mein Code funktioniert soweit, nur springt er bei der Ausführung Zelle für Zelle in einer geschwindigkeit ab, dass man dabei zugucken kann. Da das gut 6000 Records jedes mal sind, möchte ich da nicht erst 5 Minuten warten müssen.
Frage: Wie geht das schneller?
Hier der Code:
Sub Datum_US_GER()
Dim cell As Range
Dim rng As Range
Dim day As String
Dim month As String
Dim year As String
For Each cell In Selection
month = Left(cell, 2)
month = Replace(month, "/", "")
If Len(month) = 1 Then
month = "0" & month
End If
day = Mid(cell, InStr(cell, "/") + 1, 2)
day = Replace(day, "/", "")
If Len(day) = 1 Then
day = "0" & day
End If
year = Mid(cell, InStr(InStr(1, cell, "/") + 1, cell, "/") + 1, 4)
cell.Value = day & "." & month & "." & year
Next
End Sub
Vielen Dank für eure Hilfe!
|