Thema: Nach Dateiumbenennung listet mein Zähler flasch

Hallo,
ich habe ein Zählprogramm das mir jede Excel-Tabelle des Verzeichnisses auswertet und die Anzahl EIN und AUS-Stunden auflistet.
https://www.herber.de/bbs/user/53645.xls
Vor kurzem war der Name der Dateien - die er im Verzeichnis abarbeitet - noch so aufgebaut:
JJJJMMTTtext.xls
Dann hat er mir eine chronologische Auflistung der Dateien ausgegeben.
Auf Anweisung musste ich die Dateien allerdings (zwecks übersichtlichkeit) so umbenennen:
JJJJ-MM-TTtext.xls
Das ist auch das einzige was an den Dateien verändert wurde. (Meiner Meinung nach kann es eigentlich nur an diesem veränderten Namen liegen) Leider listet er jetzt "Mist" auf. siehe Bild:

(In dieser Liste darf das jeweilige Datum nur einmal auftauchen)
Was müsste man im Code des Zählers verändern? Bekomms leider selbst nich hin.
danke im voraus.

Hallo greenhorn,
so sollte der Dateiname korrekt verarbeitet werden:

'Datum aus Dateiname ermitteln
With objWbQuelle
datDatum = DateSerial(Val(Mid(.Name, 1, 4)), Val(Mid(.Name, 6, 2)), _
Val(Mid(.Name, 9, 2)))
End With

Gruß
Franz

... es stand ja drin im Code, ich habs nur nich gefunden, manchmal is man total blind =)
Danke nochmal.