Clever-Excel-Forum

Normale Version: VBA Datei öffnen mit variab Datum
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

habe eine kleine HerausforderungSmile

Ich möchte eine Datei, die täglich neu abgelegt wird (unterscheidet sich nur durch das Datum) automatisiert mit einem Makro öffnen.

Sub Bericht()



dATEINAME = ActiveWorkbook.Name
Dim varDatum
varDatum = Worksheets(1).Range("b2").Value
varDatum = DateValue(varDatum)
varDatum = Format(varDatum, "yyyy-mm-dd") & ".xlsx"


Application.ScreenUpdating = False

If Dir("\\Dateipfad\CS&E Daily Dashboard-OE-2016- v3- " & varDatum) <> "" Then
        GoTo 1
        
    Else
        MsgBox "Die Reports liegen noch nicht ab."
        
    End If
    
        GoTo 2


1:
Workbooks.Open Filename:="\\Dateipfad\CS&E Daily Dashboard-OE-2016- v3- " & varDatum, ReadOnly:=True
dateiname1 = ActiveWorkbook.Name



Leider wird die Datei vom Makro nicht erkannt und läuft sofort zur MsgBoxSad
Was mache ich falsch?

Vielen Dank im Voraus
Hallo,

heisst dein Ordner wirklich "Dateipfad", oder ist das eine Variable, die vorher bestimmt werden müsste?

Für eine Kontrolle wäre es hilfreich, an allen wichtigen Stellen den Inhalt von Variblen zu prüfen, entweder msgbox, debug.print oder im Überwachungsfenster.

Die Übergabe des Datums aus einer Zelle ohne weitere Optionen erscheint mir nicht allgemein genug.

Mfg
Danke für die schnelle Antwort.

den Pfad hebe ich nur für den Beitrag geändert....ist ein etwas längerer Netzwerkpfad.

Wenn ich über die F8 Schleife gehe und prüfe, dann bekomme ich auch das richtige Datum und das Format angezeigt also z.B 2016-04.05.

es muss etwas bei der If Prüfung sein, was die Datei nicht erkennt aber ich weiß nicht was :22:
Hallöchen,

prüfe einfach mal, ob der Pfad+Name wirklich 100% mit den Gegebenheiten übereinstimmt. Kannst z.B. den String in eine Zelle tun,

Cells(1,1).Value = "\\Dateipfad\CS&E Daily Dashboard-OE-2016- v3- " & varDatum 'Falls A1 frei ist Smile

dann den Pfad+Name aus dem Explorer in eine zweite Zelle packen und beides schön per Augenschein oder Formel vergleichen. Gerne wird z.B. die Freigabe vergessen oder ein Verzeichnis zu viel angegeben, je nachdem, was man auf dem Server so alles eingerichtet hat.