Makro mit Loop zur Werteausgabe aus named ranges
Alexandra
ich möchte ein Makro erstellen, das durch alle Dateien in einem bestimmten Verzeichnis, und in diesen Dateien alle Blätter, durchloopt und dabei die Werte aus den gleichgenannten named ranges in jedem Blatt ausliest. Diese Werte soll es in einer Übersichtsdatei auf einem beliebigen Blatt in einer Spalte untereinander ausgeben.
Im Einzelnen soll es:
1) Im Verzeichnis /.../Input/ durch alle dort abgelegten Dateien durchloopen.
2) In jeder Datei durch alle Arbeitsblätter durchloopen und prüfen, ob das Arbeitsblatt eine named range namens "kombirange" enthält.
(Die named ranges sind alle auf Arbeitsblatt-Level und nicht auf Datei-Level definiert, damit sie überall die gleichen Namen haben können. Es sind fest definierte ranges und keine dynamic named ranges.)
Falls die Datei/das Arbeitsblatt keine named range "kombirange" enthält, soll es weitergehen. Falls es eine "kombirange" findet, dann soll es
3) Alle Werte aus dieser range nacheinander auslesen und in einer Übersichtsdatei (z.B. "Overview" genannt und im gleichen Verzeichnis wie der /.../Input/ - Ordner abgelegt) im Arbeitsblatt "Tabelle1" in der ersten Spalte nacheinander auflisten. (Als "kombirange" sind jeweils nur Bereiche, die eine Spalte breit und ca. 20-40 Zeilen lang sind, definiert.)
4) Fehler abfangen, wenn welche auftreten.
Ich habe schon zwar Codes im Internet gefunden, die es erlauben, Informationen aus gleichgebauten Dateien auszulesen und aufzulisten, aber leider keine Codes für den Zugriff auf named ranges. Leider kann ich auch keine Loops schreiben und hoffe wirklich auf Eure Hilfe.
Dieses Makro würde eine sehr große Arbeitserleichterung sein!
Vielen Dank im Voraus,
Alexandra