ich habe ein Makro welches mir die Datei daten.xls öffnet:
Sub Daten_importieren()
Dim wks As Worksheet
Set wks = Workbooks.Open(ThisWorkbook.Path & "\daten.xls").Sheets("report")
wks.Cells.Copy
With ThisWorkbook.Sheets("Daten")
.Cells(1, 1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
wks.Parent.Close False
Columns("O:O").Select
Selection.NumberFormat = "m/d/yyyy"
End Sub
Falls die Datei nicht im Verzeichnis liegt, kommt es logischerweise zu einem Laufzeitfehler.
Kann ich in diesem Fall eine schöne fehlermeldung für den Nutzer erzeugen? Eine Art Messagebox mit der Info: Vorgang abgebrochen. Datei daten.xls fehlt
Gruß
Julia