ich möchte eine Datei per Function öffnen:
~
Private Function Gesamtübersichtöffnen() As Boolean
Const Lw = "Y:\"
Const Pfad = "Y:\Kalkulation"
Const Datei = "PWS Kalkulationsprüfungsbericht Gesamt1.xls"
ChDrive Lw
ChDir Pfad
On Error GoTo Fehlermeldung
Gesamtübersichtöffnen = True
Workbooks.Open Datei
Exit Function
Fehlermeldung:
MsgBox ("Die Datei " & Datei & " konnte nicht geöffnet werden. Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden.")
Gesamtübersichtöffnen = False
End Function
~
Wenn jetzt aber die Datei nicht geöffnet werden kann, weil zum Beispiel der Dateiname nicht stimmt, soll direkt zu "Fehlermeldung" gesprungen. Leider werden die beiden Zeilen unter "On Error GoTo Fehlermeldung" auch noch ausgeführt, bevor zu "Fehlermeldung gesprungen wird.
Wie kann ich das abstellen?
Wie kann ich in der Fehlermeldung in der Messagebox ein "Enter" einfügen, damit man die Meldung besser lesen kann?
Vielen Dank für Eure Hilfe!!!!
Gruß Arnd