Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler abfangen mit On Error GoTo

Forumthread: Fehler abfangen mit On Error GoTo

Fehler abfangen mit On Error GoTo
06.10.2004 17:45:41
Arnd
Hallo,
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler abfangen mit On Error GoTo
Oberschlumpf
Hi Arndt
Lösch mal die 2 Zeilen unter "Fehlermeldung:" und füge diese Zeilen ein:

If Err.Number = FEHLERNUMMER Then
MsgBox ("Die Datei " & Datei & " konnte nicht geöffnet werden. Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden.")
Gesamtübersichtöffnen = False
Else
If Err.Number <> 0 Then
MsgBox "Ein unerwarteter Fehler trat auf. Das Makro wurde abgebrochen
End
End If
End If

Für FEHLERNUMMER musst Du natürlich die FEHLERNUMMER eintragen, die dem Fehler zugeordnet ist, der ausgelöst wird, wenn die Datei nicht vorhanden ist.
Sollte ein anderer Fehler auftreten, der Dir bis jetzt noch nicht bekannt ist, wird der Anwender darauf hingewiesen und das Makro wird beendet.
Wenn kein Fehler auftritt, wird als FEHLERNUMMER 0 zurückgegeben und die Fehlermeldung: wird übersprungen.
Konnte ich helfen?
Was meinst Du mit "Enter einfügen"?
Bye
Thorsten
Anzeige
AW: Fehler abfangen mit On Error GoTo
Arnd
Hallo,
mit "Enter" meine ich, dass der 2. Satz der Fehlermeldung in einer neuen Zeile anfängt.
Gruß Arnd
AW: Fehler abfangen mit On Error GoTo
Jens_Pu
Halo Arnd,
Msgbox "Zeile1" & vbcr & "Zeile2"
Gruß Jens
AW: Fehler abfangen mit On Error GoTo
Oberschlumpf
Hi
Korrigiere diese Zeile(n) wie folgt:

MsgBox ("Die Datei " & Datei & " konnte nicht geöffnet werden. Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden.")

änderst Du in

MsgBox ("Die Datei " & Datei & " konnte nicht geöffnet werden." & vbCrLf & "Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden.")

Diese Zeile

MsgBox "Ein unerwarteter Fehler trat auf. Das Makro wurde abgebrochen"

änderst Du um in

MsgBox "Ein unerwarteter Fehler trat auf." & vbCrLf & "Das Makro wurde abgebrochen"

Läuft denn nun alles? Ich meine, auch mein 1. Vorschlag?
Bye
Thorsten
Anzeige
AW: Fehler abfangen mit On Error GoTo
Reinhard
Hi Arnd,
chdrive wertet nur das erste Zeichen aus, also langt "Y". Ein Fehler kann ja erst 2 zeilen unter der "On Error goto" auftreten, beim "Open". Von daher arbeitet das programm richtig.
ungetestet: 

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:
Mldg="Die Datei " & Datei & " konnte nicht geöffnet werden." & chr(13)
Mldg=Mldg & "Der Datensatz konnte nur in Ihrer lokalen Datei" & chr(13) & "gespeichert werden."
MsgBox (Mldg)
Gesamtübersichtöffnen = False
End Function

Gruß
Reinhard
Anzeige
AW: Fehler abfangen mit On Error GoTo
Arnd
Erstmal danke für euere Antworten, aber irgendwie klappt das immer noch nicht so wie ich mir das vorstelle.
Hier nochmal der Code:
~

Private Function Gesamtübersichtöffnen()
Const Lw = "Y:\"
Const Pfad = "Y:\Kalkulation"
Const Datei = "PWS Kalkulationsprüfungsbericht Gesamt.xls"
ChDrive Lw
ChDir Pfad
On Error GoTo Fehlermeldung
Gesamtübersichtöffnen = True
Workbooks.Open Datei
Exit Function
Fehlermeldung:
Mldg = "Die Datei " & Datei & " konnte nicht geöffnet werden." & Chr(13)
Mldg = Mldg & "Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden." & Chr(13)
Mldg = Mldg & "Bitte überprüfen Sie, ob die Datei in " & Pfad & "\" & Datei & " gespeichert ist." & Chr(13)
Mldg = Mldg & "Falls dies nicht der Fall sein sollte, ändern Sie bitte den Speicherort oder den Namen!"
Antwort = MsgBox(Mldg, vbCritical, "Warnung!!!")
Gesamtübersichtöffnen = False
End Function

~
Folgendes soll die Function machen. Sie soll die Datei öffnen, wenn die im angegebenen Pfad mit dem Namen vorhanden ist. Wenn die Funktion die Datei in dem Pfad unter dem angegebenen Namen nicht findet, soll die Fehlermeldung erscheinen.
Folgendes passiert nun. Die real existierende Datei heißt"PWS Kalkulationsprüfungsbericht Gesamt.xls". Wenn ich im Code jetzt den Namen auf "PWS Kalkulationsprüfungsbericht Gesamt1.xls" ändere, schlägt die Fehlermeldung an. Soweit so gut.
Wenn ich den obigen Code aber laufen lasse, wenn ich die wirkliche Datei umbenannt habe, oder die Datei sich gar nicht in dem Ordner befindet, läuft das der Code so durch und in der Ansicht links erscheint auch die "angeblich" geöffnet Datei. Auch werden hierbei nicht die Daten gespeichert, was der Grund der Öffnung der Datei ist.
Ích hoffe man kann das Problem verstehen!!
Wie kann ich das ändern?
Gruß Arnd
Anzeige
AW: Fehler abfangen mit On Error GoTo
Arnd
Hi,
das gerade von mir geschilderte Problem hat sich erledigt! Sorry, man sollte nicht mit Kopien auf dem Desktop arbeiten, wenn der Pfad irgendwo anders hingeht und dort alle Dateien richtig sind :-)
Gruß Arnd
;

Forumthreads zu verwandten Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
On Error GoTo ErrorHandler
Heinz

Hallo Leute
Habe unteres Makro von " Timo " erhalten...besten Dank
Nun habe ich "On Error GoTo ErrorHandler" selbst eingebaut,aber es funkt. nicht so richtig, läuft wenn kein Fehler nicht weiter.
Könntet ihr mir bitte nochmals helfen ?
Danke Heinz
Option Explicit
Dim Gel...
23.12.2008 18:27:00
Thread-ID: 1035039
14 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
VBA WennDann + Variable
Pascal

Guten Abend zusammen,
die letzte Stunde habe ich mir am folgendem Problem die Zähne ausgebissen :(
Ich versuche in einen relativen Zellbereich eine Wenn-Dann Abfrage reinzubauen.
Folgende Formel funktioniert auch:
Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(R...
13.07.2010 20:59:05
Thread-ID: 1166947
7 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
On Error Goto bleibt hängen
Jemp

Hallo Freunde
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.<...
10.09.2010 10:03:54
Thread-ID: 1176789
4 Beiträge
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
Anzeige
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
VBA Abfrage on error - nur 1 mal OK
chris

Hallo VBA Experten,
ich muss euch um Hilfe bitten.
Ich habe unten einen Code bei dem die Fehlerroutine nicht so klappt wie ich es mir vorstelle.
Es muss ein neuer Tabellenblattname eingegeben werden.
Dann wird die tabelle "Regal_leer" kopiert und entsprechend umbenannt.
Gebe...
28.02.2011 14:06:52
Thread-ID: 1203349
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fehler abfangen mit On Error GoTo in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor in Excel, indem du ALT + F11 drückst.

  2. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (DeineArbeitsmappe)".
    • Wähle "Einfügen" > "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Private Function Gesamtübersichtöffnen() As Boolean
   Const Lw = "Y:\"
   Const Pfad = "Y:\Kalkulation"
   Const Datei = "PWS Kalkulationsprüfungsbericht Gesamt.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." & vbCrLf & "Der Datensatz konnte nur in Ihrer lokalen Datei gespeichert werden."
   Gesamtübersichtöffnen = False
End Function

  4. Ersetze die Datei- und Pfadkonstanten, wenn nötig, um auf deine Datei zu verweisen.

  5. Teste die Funktion, indem du sie aufrufst.

Häufige Fehler und Lösungen

  • Fehler: Datei nicht gefunden
    Wenn du den Dateinamen oder den Pfad falsch angibst, wird der Fehler ausgelöst. Stelle sicher, dass beide korrekt sind.

  • Lösung: Verwendung von On Error GoTo
    Nutze On Error GoTo Fehlermeldung, um direkt zu der Fehlermeldung zu springen, wenn ein Fehler auftritt.

  • Problem: Fehlermeldung erscheint nicht
    Überprüfe, ob du die Zeilen nach On Error GoTo korrekt implementiert hast.

Alternative Methoden

  • On Error Resume Next
    Diese Methode ignoriert Fehler und fährt mit dem nächsten Befehl fort. Dies kann nützlich sein, aber sei vorsichtig, da dies zu unentdeckten Fehlern führen kann.

    On Error Resume Next
Workbooks.Open Datei
If Err.Number <> 0 Then
   ' Fehlerbehandlung
End If

  • VBA Err-Objekt
    Verwende Err.Number und Err.Description, um spezifische Fehler zu identifizieren und entsprechend zu handeln.

Praktische Beispiele

  1. Fehlermeldung anpassen: Um die Fehlermeldung benutzerfreundlicher zu gestalten, kannst du vbCrLf verwenden, um Zeilenumbrüche zu erzeugen. Beispiel:

    MsgBox "Die Datei " & Datei & " konnte nicht geöffnet werden." & vbCrLf & "Bitte überprüfen Sie den Pfad."

  2. Komplexere Fehlerbehandlung: Verwende mehrere If-Bedingungen, um verschiedene Fehler zu behandeln:

    If Err.Number = 2 Then
   MsgBox "Datei nicht gefunden."
ElseIf Err.Number = 1004 Then
   MsgBox "Zugriffsfehler."
End If

Tipps für Profis

  • Testen vor dem Einsatz: Stelle sicher, dass du deinen Code in einer Testumgebung prüfst, bevor du ihn in einer produktiven Umgebung verwendest.
  • Dokumentation: Halte deine Fehlerbehandlungen gut dokumentiert, um zukünftige Wartungen zu erleichtern.
  • Verwende Debug.Print: Nutze Debug.Print für die Ausgabe von Fehlerdetails in das Immediate-Fenster des VBA-Editors zur einfacheren Fehlersuche.

FAQ: Häufige Fragen

1. Wie füge ich mehrere Zeilen in einer MsgBox ein?
Verwende vbCrLf oder Chr(13) zwischen den Texten in der MsgBox, um Zeilenumbrüche zu erzeugen.

2. Was bedeutet On Error Resume Next?
Diese Anweisung bewirkt, dass der Code bei einem Fehler weiterläuft, ohne die Ausführung anzuhalten. Sei vorsichtig, da dies dazu führen kann, dass Fehler unentdeckt bleiben.

3. Wie kann ich spezifische Fehler abfangen?
Verwende das Err-Objekt, um den Fehlercode zu überprüfen und spezifische Maßnahmen zu ergreifen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige