|
Hallo Leute,
ich kämpfe seit Stunden mit folgendem Problem:
Ich habe eine Datei die ich jeden Tag bearbeite und am nächsten Tag mit dem neuen Datum abspeichere (2021_05_10 Master), (2021_05_11).
Dafür lege ich jedes mal einen neuen Ordner mit einem neuen Datum an.
In den Ordner speichere ich eine Datei (.xlsx) mit Kursen des aktuellsten Datums.
Der Dateiname war gestern z.B. "Per 2021_05_15", heute wird sie heißene "Per 2021_05_16".
Ich will in die Masterdatei per VBA sagen, "öffne in dem gleichen Ordner die Datei deren Dateiname "Per" beinhaltet
Von dort will ich den Inhalt von A2:D7 in das Hauptworkbook kopieren. Wenn die Datei nicht existiert, soll eine Message ausgegeben werden.
Mein Code bisher:
Dim lstrDatName As String
lstrDatName = Dir("ThisWorkbook.Path" & "\" & "*Per*.xlsx")
If lstrDatName <> "" Then
Workbooks.Open lstrDatName
lstrDatName = ""
Else
MsgBox "Datei nicht vorhanden"
Exit Sub
End If
Danke für jede Hilfe!!!
|