Aktuellste Datei finden
12.02.2013 14:27:56
Benedikt
Wie kann ich die jeweils aktuellste Test anwählen wenn das Verzeichnis mehrere Test xlsm mit älteren index enthält?
Beispiel:
V12.12 Test.xlsm
V13.01 Test.xlsm
V13.02 Test.xlsm
V13.03 Test.xlsm
V13.04 Test.xlsm
V13.05 Test.xlsm
Sub Auto_Open()
Dim objWB As Workbook
Dim strSourceFile As String, strTargetPath As String
Application.CutCopyMode = False
Application.DisplayAlerts = False
strSourceFile = "O:\Lager\Material\***.** Test.xlsm" 'Pfad der Datei
Vielen Dank für eure Hilfe
Gruss Benedikt