Option Explicit
Dim Var1 As Variant
Dim Var2 As Variant
Sub DateiSuche()
Dim Verzeichnis As String
Dim Typ As String
Dim DateiName As String
Dim Dateiname_neu As String
Dim Zeit As Date
Dim Uebergabedatei As String
Dim i As Integer
i = 2
For i = 1 To 2
Verzeichnis = "C:\Desktop\Neuer Ordner\"
Typ = "Atci*.xlsx"
DateiName = Dir(Verzeichnis & Typ)
Dateiname_neu = DateiName
Zeit = FileDateTime(Verzeichnis & DateiName)
Do While DateiName <> ""
If Zeit < FileDateTime(Verzeichnis & DateiName) Then
Zeit = FileDateTime(Verzeichnis & DateiName)
Dateiname_neu = DateiName
End If
DateiName = Dir
Loop
Uebergabedatei = Verzeichnis & Dateiname_neu
Vari = Uebergabedatei
MsgBox "Für Atc" & i & " wurde die Datei " & Vari & " geöffnet."
Next
End Sub