Hallo Leute,
ich hab mal ne kleine Frage. Ich kopiere alle Sheets ("Auswertung") aus allen xls Dateien eines Ordners in eine einzige Mappe. Läuf auch. Jetzt habe ich aber folgendes Problem! Wenn das Sheet "Auswertung" in einer der Mappen nicht vorhanden ist, kann es ja auch nicht kopiert werden, ist ja schon klar. Nur dann bekomme ich eine Fehlermeldung und das Makro läuft nicht weiter.
Die Mappe soll aber einfach ausgelassen werden!!!
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
Sheets("Auswertung").Select
Cells.copy
Workbooks("Gesamtauswertung.xls").Activate
Cells.Select
ActiveSheet.Paste
Sheets.Add
Wie kann ich das Makro nach dem Befehl: Sheets("Auswertung").Select
so verändern/erweitern das wenn das Sheet so nicht vorhanden ist einfach
mit der nächsten Mappe fortgesetzt wird?
Danke für eure Hilfe
Tim