ich versuche so die älteste Datei zu ermitteln
Sub Dateiliste_Neu()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "E:\Produktivität\Produktivität\Produktivität\Neue Daten\"
StrTyp = "*.xlsx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit > FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
Workbooks.Open Dateiname_neu
' MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub
In der MsgBox wird mir die richtige Datei angezeigt.Mein Problem ich kriege die Datei nicht geöffnet.
Habt ihr eine Idee warum das so ist ?
Vielen Dank
der Mani