Guten Abend,
um meine Datei aufzurufen verwende ich folgenden Schleifenbeginn
'Schleife Datei
lngZaehlerZeileZiel = 2
lngZaehlerSpalteZiel = 1
For dateDatumQuelle = DateSerial(2017, 1, 1) To DateSerial(2017, 52) Step 1 'FOR000
strNameDateiAktuell = "AuswCCSI_KW2017" & Format(Format(Date, "-ww"), "00") & "_Team_Wittstock" & ".xlsx"
Workbooks.Open strPfadDateiQuelle & strNameDateiAktuell
meine zu öffnenden Dateien lauten : AuswXXXX_KW2017-01_Team_Witt
mit DateSerial springt er nicht die Kalenderwochen Angabe KW2017-01 weiter
Richtung 02 etc bis 52. Ich kann aber auch nicht vorgeben 1 to 52, da die Dateien ja immer
erst im Laufe des Jahres in der Regel 2 Wochen nach Ablauf der Woche erstellt werden.
Kennt Ihr hier eine Alternative?
|