VBA: identische Blätter(-namen) einsammeln
22.06.2018 15:52:05
silex1
ich habe eine Datei (CB_2018.xls) mit nur einem Blatt (Blattname z.B. "997191234").
Nun gibt es in einem Ordner "C:/A_Rene/CB2018" mehrere Arbeitsmappen, welche im Format "XX_06_2018.xls" bezeichnet sind (XX steht hier für eine Zahl oder Text).
Ich würde gern ein Makro haben, was nun anhand des Blattnamens, alle Dateien aus dem o.g. Ordner durchforstet und wenn es in einer Mappe den selben Blattnamen findet (ist nicht in allen Mappen auch tatsächlich vorhanden), soll es das gesamte Blatt in die Datei als neues Blatt kopieren UND das XX als Blattname nehmen.
als Bsp.
Die Mappe heißt "Rene_CB2018" und hat nur ein Blatt mit Blattname "997191234".
Das Makro öffnet nun die erste Mappe (z.B. "13_06_2018.xls"), findet den Blattnamen nicht und geht zur nächsten Mappe (z.B. "Cola_06_2018.xls"). Dort findet es das Blatt mit dem Namen "997191234", kopiert es in meine Mappe und benennt es um in das, was vor dem ersten _ steht. Also hier z.B. in "Cola". Und dies muss das Makro halt mit allen xls machen, die in dem o.g. Ordner sind.
Falls es beim sammeln hilft, die zu suchenden Blattnamen bestehen immer aus 9 Zahlen und die Umbenennung ist eine 1 bis 2 stellig Zahl oder Text.
Vielleicht hat ja jemand Lust und mag mir dabei helfen.
Mit dankbaren Grüßen
René