In einem Ordner befinden sich mehrere Dateien,
es soll immer die zuletzt erstellte Datei ge�ffnet werden !
Sub NeuesteDatei()
�� Merkdatum = 0
�� Dateiname = ""
�� Pfad = "C:\TEMP"
�� FName = Dir(Pfad & "\*.xls")
�� Do While FName <> ""
����� Datum = FileDateTime(Pfad & "\" & FName)
����� If Datum > Merkdatum Then
�������� Merkdatum = Datum
��� ���� Dateiname = Pfad & "\" & FName
����� End If
����� FName = Dir()
�� Loop
�� If Dateiname <> "" Then Workbooks.Open Dateiname
End Sub

�