Fehlermeldung bei fehlendem Pfad in Schleife
23.06.2015 12:03:53
Max
ich habe das folgende Makro in einer Excel Datei welches in der For Schleife verschiedene Dateien öffnet die in einer Liste auf dem Tabellenblatt Settings stehen.
Ich würde gerne eine Fehlermeldung in die Zellen E & i schreiben wenn die Datei nicht gefunden wird "File not found" und dann mit Next i weitermachen. Alle meine Versuche mit Goto sind bisher gescheitert (bin aber auch nen VGA neuling).
Sub Load()
' Load Makro
Dim strPfad As String
Dim i As Integer
Dim Pfad As String
Dim wbSheet As String
Set wbZiel = ActiveWorkbook
Worksheets("Settings").Select
Range("E8:E22").Select
Selection.ClearContents
For i = 8 To 22
If Range("C" & i) "" Then
strPfad = _
ActiveWorkbook.Path & "\" & Worksheets("Settings").Range("C" & i)
Application.Workbooks.Open (strPfad)
Set wbsource = ActiveWorkbook
Worksheets("Summary").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
wbZiel.Activate
Sheets(ThisWorkbook.Sheets("Settings").Range("D" & i).Value).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wbsource.Activate
Application.CutCopyMode = False
ActiveWindow.Close False
wbZiel.Activate
Worksheets("Settings").Select
Range("E" & i) = "File loaded succesfully"
End If
Next i
End Sub
Danke für eure Hilfe.
VG,
Max
Anzeige