Auf eine andere .xlsx zugreifen mit fortlaufender Benennung

[Excel_Tabellen]

Hallo zusammen,

ich möchte aus einer Excel Datei auf eine andere Excel Datei zugreifen und einen Bezug erstellen. Soweit so gut:

=ZÄHLENWENN([Bewerber.xlsx]Bewerber!$L:$L;Aufgabe!$C1750)

Das funktioniert. Das Problem ist, dass die Bewerber Datei täglich aktualisiert wird. Dabei ändert sich jedoch auch der Name der Datei:

2017-01-09-2254_Bewerber
2017-01-10-2229_Bewerber
2017-01-11-2230_Bewerber
2017-01-12-2228_Bewerber

Das Datum YYYY-MM-TT steigt fortlaufend an.
Die vierstellige Ziffer, die anschließt ist zufällig generiert.
Bewerber bleibt gleich. Die Bindestriche und der Unterstrich ebenfalls.

Gibt es eine Möglichkeit mit der ich immer automatisch auf die aktuellste Datei zugreifen kann?

Ich habe auch hier nachgefragt: http://www.ms-office-forum.net/forum/sho...ost1783294 

Vielen Dank im Voraus und Liebe Grüße.

[Fennek]

Hallo,

m.K.n. nur mit VBA.

mfg

[schauan]

Hallöchen,
Stehen alle Dateien in einem Ordner und wenn ja, in welchem - eventuell im gleichen wie die Zieldatei?
Werden die Quelldateien nochmal irgendwann bearbeitet?
Ist die aktuelle Datei immer vom "heutigen" Datum
Die Daten vom vorletzten Datum werden aktuell nicht mehr importiert?

[Excel_Tabellen]

Hallöchen,
Stehen alle Dateien in einem Ordner und wenn ja, in welchem - eventuell im gleichen wie die Zieldatei?
Werden die Quelldateien nochmal irgendwann bearbeitet?
Ist die aktuelle Datei immer vom "heutigen" Datum
Die Daten vom vorletzten Datum werden aktuell nicht mehr importiert?

Hallöchen auch dir :D,

Alle Dateien stehen im selben Ordner, außer der Zieldatei. 
Jeden Tag kommt eine neue Quelldatei dazu. Diese wird nicht noch einmal bearbeitet.
Die Datei ist immer vom vorhergegangenen Datum, also von "gestern".
Es sollen nur die Daten von der jeweils aktuellsten Quelldatei importiert werden.

Bei weiteren Fragen einfach noch schreiben ;;) .
LG

[Jockel]

off topic...

Hallo zusammen,

...

Ich habe auch hier nachgefragt: http://www.ms-office-forum.net/forum/sho...ost1783294 

Vielen Dank im Voraus und Liebe Grüße.

Du hast Glück das Hajo nicht da ist, ansonsten würde Dein Beitrag ... Hallo, alles cool, ich mach nur Spaß... (^_-) Hajo meint das aber ernst, also vorsicht im Nachbarforum... Dort ist Hajo mächtig (unwichtig)...

[schauan]

Hallöchen,

ich hab hier mal ein Makro zur Korrektur der Formeln.
In dieser Zeile musst Du noch den genauen Ort eingeben, wo die Daten liegen
strNewFile = Dir("D:\Test\" & Format(Date - 1, "yyyy-mm-dd-") & "????" & "_Bewerber.xlsx")

Dann weiß ich natürlich nicht, wo die Formeln stehen. Ich habe hier mal B1:B20 programmiert. Dass und auch die Angabe bei After musst Du anpassen.
Eine Fehlerbehandlung ist nicht drin. Ich setze also voraus, dass es immer eine Datei von "vorgestern" und die Formeln von "gestern" gibt. Falls nicht 7 Tage die Woche die Daten aktualisiert werden, was ich nicht weiß, gibt es auch ein Problem.
Die Datei von "vorvorgestern" muss bei der Bearbeitung auch geschlossen sein, ansonsten wird der Dateiname nicht in den Formeln gefunden.
Der Code ist leider nicht 100% getestet. Wollte jetzt keine Formeln und Dateien nachbauen

Code:

Sub FormelnKorrigieren()
'Variablendeklarationen
'String
Dim strNewFile$, strOldFile$
'Variant
Dim vCell
'alte Bezeichnung suchen
Set vCell = Range("B1:B20").Find(What:=Format(Date - 2, "yyyy-mm-dd-"), After:=Range("B1"), LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
'Bezeichnung uebernehmen
strOldFile = vCell.Value
'pruefen, ob Datei mit neuen Datum vorhanden ist / Dateiname an Variable uebergeben
strNewFile = Dir("D:\Test\" & Format(Date - 1, "yyyy-mm-dd-") & "????" & "_Bewerber.xlsx")
'Wenn eine Datei vorhanden ist, dann
If strNewFile <> "" Then
  'erste 16 Zeichen vom Dateinamen abtrennen
  strNewFile = Left(strNewFile, 16)
  '16 Zeichen vom Dateinamen abtrennen und zuvor =ZAEHLENWENN([
  strOldFile = Left(Split(strOldFile, "[")(1), 16)
  'Name in Formel ersetzen
    Range("B1:B20").Replace What:=strOldFile, Replacement:=strNewFile _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False
'Ende Wenn eine Datei vorhanden ist, dann
End If
End Sub