Clever-Excel-Forum

Hallo in die Rund

mal ein anderes Problem

mein Chef gibt uns mehrfach ein Update Datei in Excel

Test-2021_01.01.2021 10.20Uhr.xlsm
Test-2021_01.01.2021 21.03Uhr.xlsm
Test-2021_11.10.2021 05.13Uhr.xlsm
.
..
.
.
Jetzt möchte ich ein Makro, dass mir das letzte Update in meine Arbeitsmappe holt.

habt Ihr einen Ansatz für mich Blush

Hallo,

z.B. so:

Code:
Sub LetztesUpdateLaden()

  Dim datZeistempelG As Date, datZeistempelT As Date

  Dim strDateiG As String, strDateiT As String

  Dim strOrdner As String, strZeitstempel As String

  strOrdner = "N:\Daten\Excel\" '< anpasssen!

  strDateiT = Dir(strOrdner & "*.xlsm")

  Do Until strDateiT = ""

    datZeistempelT = CDate(Mid(strDateiT, 11, 10)) + _

                     CDate(Application.Substitute(Mid(strDateiT, 23, 5), ".", ":"))

    If datZeistempelG < datZeistempelT Then

      datZeistempelG = datZeistempelT

      strDateiG = strOrdner & strDateiT

    End If

    strDateiT = Dir

  Loop

  If Len(strDateiG) Then

    Workbooks.Open strDateiG

  Else

    MsgBox "Keine Datei gefunden.", vbInformation

  End If

End Sub

Das geht auch mit Power Query ganz einfach!

Hallo Kuwer

Ich danke dir für die Hilfe
werde ich morgen gleich mal anpassen und ausprobieren

Dadurch komme ich warscheinlich wieder ein Stück weiter.

Hundefreund

Kuwer

kkr4

Hundefreund