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!