ausgewählte Excel-Datei laden

[Hundefreund]

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

[Kuwer]

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

[kkr4]

Das geht auch mit Power Query ganz einfach!

[Hundefreund]

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.