Datei öffnen
28.09.2017 11:30:10
Franky
ich habe folgendes Problem und zwar mööchte ich über Excel Tagesabrufzahlen auswerten. Deswegen öffne ich immer eine Datei vom Vortag und Werte Sie aus. Jetzt gibt es allerdings zum Beipiel für das Wochenende oder Feiertage keine solche Dateien, also findet er nichts in dem dafür vorgesehenen Ordner.
wie bekomme ich es hin, dass wenn er zum Beispiel die Datei VAK_Abrufzahlen_27092017, also die von gestern nicht findet, die Datei von vorgestern sucht, also VAK_Abrufzahlen_26092017?
Also das er quasi solange Rückwärts die Tage abklappert, bis er wieder eine Datei findet und diese dann öffnet. Im moment gibt es ja immer eine Fehlermeldung wenn die Datei nicht vorhanden ist.(strAbrufalt)
Hoffe ich habe es anschaulich genug erklärt. Hier mal mein bisheriger Code dazu:
Sub Tabellen_laden()
Dim strAbrufalt, strAbrufneu As String
strAbrufalt = strProdArea & "_Abrufzahlen_" & Format(Date - 1, "yyyymmdd") & ".xlsx"
strAbrufneu = "Tabelle von Basis" & ".xlsx"
'Tabelle umbenennen
Worksheets(1).Name = strProdArea & " Abrufzahlenvergleich " & Format(Date, "dd.mm.")
Worksheets(2).Name = strProdArea & " Abrufzahlenvergleich " & Format(Date - 1, "dd.mm.")
'Alte Tabellen Laden
Workbooks.Open (ThisWorkbook.Path & "\" & "Historie Abrufzahlen" & "\" & strAbrufalt)
Workbooks(strAbrufalt).Worksheets(1).UsedRange.Copy Destination:=ThisWorkbook.Worksheets(2). _
_
Range("A1")
'Neue Tabelle Laden
Workbooks.Open (ThisWorkbook.Path & "\" & strAbrufneu)
Workbooks(strAbrufneu).Worksheets(1).UsedRange.Copy Destination:=ThisWorkbook.Worksheets(1). _
_
Range("A1")
'Tabellen schließen
Application.DisplayAlerts = False
Worksheets(3).Delete
Workbooks(strAbrufalt).Close savechanges:=False
Workbooks(strAbrufneu).Close savechanges:=False
Application.DisplayAlerts = True
End Sub