Makro soll die neuste Datei auswählen
11.11.2015 16:50:41
Franco
ich scheitere gerade an einem wahrscheinlich ganz einfachen Code. Habe folgendes Makro geschrieben um eine Datei zu öffnen:
Sub Lagerbestände_kopieren()
'Lagerbestand in die Datei kopieren
Dim Pfad As Variant
Dim DateinameLB As Variant
Pfad = "M:\Verkaufsteam\Lagerbestand\"
DateinameLB = Dir(Pfad & "Lagerbestand*.xlsx")
If DateinameLB = "" Then
Beep
MsgBox "Es wurde keine Datei 'Lagerbestand' gefunden"
End
End If
Workbooks.Open Pfad & DateinameLB
End Sub
Nun liegen in dem Ordner aber Dateien von verschiedenen Tagen die wie folgt benannt sind: LagerbestandJJJJMMTT.xlsx JJJJMMTT steht natürlich für das aktuelle Datum. Wie kann ich das Makro anweisen, dass er die aktuellste Version der Datei auswählt?
Ich habe das Makro aus einer anderen Datei kopiert, da funktioniert es seltsamerweise. Löschen der alten Dateien ist leider keine Option, da die ausführenden Benutzer in dem Ordner keine Löschrechte besitzen.
Danke für die Unterstützung!
Viele Grüße
Franco