Moin Forum,
Mit folgendem Code frage ich insgesamt elf Datein ab, und übertrage die Daten in eine andere Mappe. Funktioniert auch einwandfrei. Aber auch nur, sofern alle elf Datein vorhanden sind. Hier mal ein Ausschnitt:
Sub HolenJanuar()
Sheets("Geholt").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="C:\Programme\Elli\Sammler\SammlungZzs\Anna.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A1:L5").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Workbooks.Open Filename:="C:\Programme\Elli\Sammler\SammlungZzs\Bernadette.xls"
Range("B3:M7").Select
Selection.Copy
ActiveWindow.Close
Range("A6:L10").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A11").Select
...u.s.w.
Was muß ich in diesem Code einfügen, damit, wenn Anna.xls nicht vorhanden ist, er bei Bernadette.xls weitermacht?
Die ganzen Select´s werden euch Profis sicher zum schmunzeln bringen, aber NOCH bin ich nicht so firm in VBA. Darum bitte ich an dieser Stelle schonmal um Nachsicht :-)
Wie gesagt. Es geht mir nur um den Code, der mich über eine nicht vorhandene Datei rettet und somit nicht der debugger anspringt.
Bin für jeden Tip dankbar
Gruß Thorsten