Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Was bedeutet On Error Resume Next

Was bedeutet On Error Resume Next
Holger
Hallo,
oft lese ich diesen Code. Was bedeutet er?
Mein Problem. In meinen Makros gibt es kaum eine Fehlerbehandlung.
Manchmal passieren unvorhersehbare Dinge, dann steigt er mit einem Laufzeitfehler aus. Nicht schön für den User.
Wie kann man das vermeiden?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Was bedeutet On Error Resume Next
30.06.2010 19:42:57
Beverly
Hi Holger,
das bedeutet, dass bei einem auftretenden Fehler die nächste Codezeile ausgeführt wird (ohne Fehlermeldung). Man sollte aber nach Möglichkeit On Error Resume Next nicht zur Fehlerbehandlung einsetzen, wenn es andere Möglichkeiten dafür gibt.
Man kann es natürlich verwenden, wenn man auf diesem Weg gezielt etwas bestimmtes erreichen will. Auf jeden Fall ist es aber mit großer Vorsicht zu genießen und man sollte auch nach dem Code-Teil, wo ein gezielter Fehler "übersprungen" wird, dies mit On Error Goto 0 zurücksetzen. Andernfalls kann es passieren, dass der Code Dinge tut, die man gar nicht geplant hat. Und bei einer Fehlersuche - also wenn ein Code irgend etwas anderes als gewünscht macht - sollte man die Zeile On Error Resume Next auf jeden Fall auskommentieren, sonst findet man den Fehler nicht, da er ja sozusagen ignoriert wird.
Da aber niemand deinen Code kennt, kann man das in deinem konkreten Fall auch schlecht sagen, was da am zweckmäßigsten ist.

Anzeige
AW: Was bedeutet On Error Resume Next
30.06.2010 20:08:27
Holger
Hi Karin,
Danke für die Antwort.
Dann bringt kich On Error resume next nicht weiter.
Bislang habe ich zwei Fehlerquellen entdeckt, eine davon ungeklärt:
1. Unter bestimmten (ungeklärten Umständen, vielleicht wenn eine andere Excel Datei geöffnet wird), funktioniert die Tabellenblattzuweisung nicht (SET wks = Blabla)
2. Wenn eine Datendatei nicht verfügbar ist, weil sie jemand z.B vergessen hat zu kopieren.
AW: Was bedeutet On Error Resume Next
30.06.2010 20:36:58
Beverly
Hi Holger,
zu 1. der Fehler tritt dann auf, wenn die betreffende Tabelle nicht vorhanden ist - hier kann man mit On Error gezielt einen Fehler abfangen indem man die Tabelle auf die Variable schreibt und dann den Inhalt der Variablen prüft. Die Variable ist Nothing, wenn die Tabelle nicht xistiert: 
    On Error Resume Next
Set wks = Worksheets("Tabelle3")
On Error GoTo 0
If wks Is Nothing Then MsgBox "Tabelle existiert nicht"

Nach dem Then natürlich den Code, der im betreffenden Fall - Tabelle nicht vorhanden - ausgeführt werden soll. Man kann es logischer Weise auch umgedreht machen in dem man stattdessen das Vorhandensein auswertet: 
    If Not wks Is Nothing Then MsgBox "Tabelle existiert"

Das konkrete WIE hängt ganz von den Bedingungen ab, was man weiterverarbeiten will.
zu 2. wenn es sich um eine Datei handelt die geöffnet werden soll, dann könnte man zuerst prüfen, ob sie in dem Verzeichnis vorhanden ist. Schau dir dazu mal in der VBA-Hilfe die Funktion Dir() an.

Anzeige
AW: Was bedeutet On Error Resume Next
30.06.2010 20:37:51
Beverly
Hi Holger,
zu 1. der Fehler tritt dann auf, wenn die betreffende Tabelle nicht vorhanden ist - hier kann _ man mit On Error gezielt einen Fehler abfangen indem man die Tabelle auf die Variable schreibt und dann den Inhalt der Variablen prüft. Die Variable ist Nothing, wenn die Tabelle nicht xistiert: 

On Error Resume Next
Set wks = Worksheets("Tabelle3")
On Error GoTo 0
If wks Is Nothing Then MsgBox "Tabelle existiert nicht"

Nach dem Then natürlich den Code, der im betreffenden Fall - Tabelle nicht vorhanden - ausgeführt werden soll. Man kann es logischer Weise auch umgedreht machen in dem man stattdessen das Vorhandensein auswertet: 
    If Not wks Is Nothing Then MsgBox "Tabelle existiert"

Das konkrete WIE hängt ganz von den Bedingungen ab, was man weiterverarbeiten will.
zu 2. wenn es sich um eine Datei handelt die geöffnet werden soll, dann könnte man zuerst prüfen, ob sie in dem Verzeichnis vorhanden ist. Schau dir dazu mal in der VBA-Hilfe die Dir-Funktion an.

Anzeige
AW: Was bedeutet On Error Resume Next
30.06.2010 20:43:22
Daniel
HI
man kann schon "On Error Resume Next" einsetzen, aber man sollte dann schon genau wissen, was man tut.
einfach nur pauschal oben ins Makro schreiben führt nur seltsamen Ergebnissen, deren Ursache keine findet, weil das Makro an der Fehlerstelle nicht stoppt.
hier mal ein Beispiel für einen sinnvollen Einsatzt.
am Beispiel deines ersten Falls, der User hat die falsche Datei geöffnet und das Blatt "blabla" existiert nicht:
On Error Resume Next
Set wks = blabla
On Error Goto 0
If wks is Nothing then
Msgbox "Falsche Datei, das Blatt "blabla" ist nicht vorhanden."
Else
'hier folgt dann der weitere Code
End if
Beachte, das "On Error Resume Next" gilt nur für den Befehl, bei dem der Fehler passiern darf.
danach wird die Option sofort deaktiviert und es erfolgt eine Prüfung, ob die Aktion erfolgreich war oder ob ein Fehler passiert ist.
Gruß, Daniel
Anzeige
AW: Was bedeutet On Error Resume Next
30.06.2010 19:44:30
Nepumuk
Hallo,
indem du möglichst alle Möglichkeiten berücksichtigst. Erst bei völlig unvorhersehbaren Ereignissen (z.B. der Chef geht persönlich an den Rechner) soll der Errorhandler das abfangen. Dieser sollte aber nicht einfach weitermachen, denn das bewirkt On Error Resume Next, sondern eine 1. Aussagekräftige Meldung ausgeben. 2. Ein Protokoll erstellen mit Datum, Uhrzeit, Benutzername, Computername, Fehlernummer, Fehlerbeschreibung sowie Zeile und Prozedur in welcher der Fehler auftrat. Außerdem sollte er merken wenn er in eine Endlosschleife gerät und in diesem Fall das ganze Programm zwangsweise beenden.
Wenn du jetzt wissen willst wie du das machen kannst, dann schau hier in das Forenarchiv. Es genannten Punkte wurde alle schon vielfach behandelt.
Gruß
Nepumuk
Anzeige

76 Forumthreads zu ähnlichen Themen

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
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Anzeige
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
3
5
2
5
1
7
2
3
3
7
1
4
8
6
3
4
6
5
1
2
4
2
2
2