Hallo liebe community,
ich habe folgendes Makro, welches die aktuellste Datei in einem variablen Ordner öffnen soll.
Nun hab ich das Problem, dass ich eine Fehlermeldung bekomme.
Diese Fehlermeldung Besagt dass ich Für die Ordner Jahr und Monat konstante Werte verwenden muss. (in Zelle 2,2 steht dass Datum)
Sub Datei suchen()
Ordner = Sheets(2).Cells(2, 2)
Ordner = Format(Ordner, "mm_MMMM")
Jahr = Sheets(2).Cells(2, 2).Value
Jahr = Format(Jahr, "yyyy")
Const strVerz As String = "P:\xxx\zzz\yyy\aaa\bbb\ccc\" & Jahr & "\" & Ordner & "\"
Const strExt As String = ".xls"
Dim strDatei As String, strScratch As String
strScratch = Dir(strVerz & "*" & strExt)
strDatei = strScratch
Do While strScratch <> ""
If FileDateTime(strVerz & strDatei) < FileDateTime(strVerz & strScratch) Then strDatei = strScratch
strScratch = Dir()
Loop
If strDatei <> "" Then
Workbooks.Open strVerz & strDatei
Else
MsgBox "keine Datei gefunden"
End If
End Sub
Wie kann ich das Makro anpassen, um variable Ordner zu verwenden?
Vielen Dank und freundliche Grüße
_Josi
|