Hallo,
ich würde gerne die aktuellste Datei anhand des Datums aus einem Ordner auslesen. Leider gibt das makro mir am Ende an, dass strneuesteDatei "Empty" ist.
Hier mein Code:
strPfad = ("....")
strdateiname = Dir(strPfad & "\LNG" & "*.pdf")
Do While strdateiname <> ""
intStartDatum = InStr(strdateiname, "_") + 1
StrJahr = Mid(strdateiname, intStartDatum, 4)
StrMonat = Mid(strdateiname, intStartDatum + 4, 2)
strTag = Mid(strdateiname, intStartDatum + 6, 2)
If DatAktDatei < DateSerial(StrJahr, StrMonat, strTag) Then
DatAktDatei = DateSerial(StrJahr, StrMonat, strTag)
strNeusteDatei = strPfad & "\LNG" & DatAktDatei & ".pdf"
End If
strdateiname = Dir()
Loop
Activeworkbook.followhyperlink strNeuesteDatei
Für jede Hilfe bin ich dankbar!
LG Raimund
|