"Fehler" in Makroprozedur umgehen
23.09.2005 13:22:48
Thorsten
ich habe folgendes Problem. Ich lasse per Makro Verschiedene Datein suchen, und deren Innhalt in einer anderen Arbeitsmappe sammeln.
Wenn alle Datein vorhanden sind, ist es auch kein Problem. Aber sobald eine fehlt, hält das Makro natürlich an. Ich möchte aber, dass wenn eine oder mehrere Datein fehlen, trotzdem die vorhandenen Datein eingelesen werden. Praktisch nach dem Motto: Anna.xls habe ich nicht gefunden, also gehe ich zu Bernadette.xls... usw.
Mit der GoTo Anweisung habe ich es schon probiert, aber die kann man wohl nur einmal in dem selben Makro verwenden, oder?
Hier ist ein Ausschnitt aus dem Makro (ist mit Makrorecorder aufgezeichnet):
Sub HolenJanuar()
Sheets("Geholt").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="C:\Programme\Elli\SammlungZzs\Anna.xls"
Range("B3:M7").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.Copy
ActiveWindow.Close
Range("A1:L5").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A6").Select
Workbooks.Open Filename:="C:\Programme\Elli\SammlungZzs\Bernadette.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A6:L10").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A11").Select
Workbooks.Open Filename:="C:\Programme\Elli\SammlungZzs\Christophorus.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A11:L15").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A16").Select
Workbooks.Open Filename:="C:\Programme\Elli\SammlungZzs\Elisabeth.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A16:L20").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A21").Select
Workbooks.Open Filename:="C:\Programme\Elli\SammlungZzs\Inobhutnahme.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A21:L25").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
und so weiter...
Im Voraus schonmal Danke für einen Tip
Gruß
Thorsten