Fehlerbehandlung
21.11.2014 09:49:57
Carsten
ich habe eine Frage bezüglich der Fehlerbehandlung.
Ich öffne eine Datei und schreibe dort Daten heraus. Jetzt habe ich das Problem, dass es Laschen gibt, welche erst im zeitablauf dazu kommen. Wie überspringe ich das kopieren von diesen Fehlern ohne direkt auf einen nächsten Tag zu springen.
Zur veranschaulichung findet ihr den Code unten:
For i = 4 To 329
Monat = ThisWorkbook.Worksheets("Official Prices").Cells(i, 3)
Jahr = ThisWorkbook.Worksheets("Official Prices").Cells(i, 4)
Tag = ThisWorkbook.Worksheets("Official Prices").Cells(i, 2)
Name = "Test " & Tag & ".xlsm"
Workbooks.Open (Pfad & "\" & Jahr & "\" & Monat & "\" & Name)
ThisWorkbook.Worksheets("Official Prices").Cells(i, 5) = Workbooks(Name).Worksheets("Name1").Range("B32")
ThisWorkbook.Worksheets("Official Prices").Cells(i, 6) = Workbooks(Name).Worksheets("Name2").Range("B32")
ThisWorkbook.Worksheets("Official Prices").Cells(i, 7) = Workbooks(Name).Worksheets("Name3").Range("B32")
ThisWorkbook.Worksheets("Official Prices").Cells(i, 8) = Workbooks(Name).Worksheets("Name4").Range("B32")
Workbooks(Name).Close
Next
i = i + 1