Anzeige
Archiv - Navigation
1300to1304
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
Inhaltsverzeichnis

Fehlermeldung deaktivieren

Fehlermeldung deaktivieren
08.03.2013 15:51:17
Stefan
Hallo liebe Experten,
im nachfolgenden makro code kommt immer eine Fehlermeldung, die ich deaktivieren möchte. Dies _
gelingt mir aber nicht, wenn ich lediglich bei Application.DisplayAlerts false eintippe.

Sub Einfaches_Makro_zum_Ersetzen_und_Updaten()
Application.DisplayAlerts = False
ThisWorkbook.Activate
Sheets("Data").Select
Range("A1:HH7").Replace _
What:="C00639", _
Replacement:="C11698", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
On Error GoTo DispFehler
Application.ExecuteExcel4Macro "FctUpdateAuto()"
Application.DisplayAlerts = True
DispFehler: MsgBox "Hurra"
End Sub

Ziel wäres also, dass keine Fehlermeldung erscheint.
Lasst mich bitte wissen, was ich machen könnte.
Vielen Dank,
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung deaktivieren
08.03.2013 16:00:21
Daniel
Hi
Application.DisplayAlerts = False schaltet keine Fehlermeldungen aus !
Application.DisplayAlerts sind Rückfragen des Systems, wenn es vom Anwender eine Entscheidung erwartet, bspw die Rückfrage vor dem Löschen eines Tabellenblatts oder die Frage nach dem Speichern beim Schießen einer Datei mit ungespeicherten Änderungen.
diese Rückfragen lassen sich mit Application.DisplayAlerts = False unterdrücken, in diesem Fall wird dann die Standardanwort verwendet (also die, die bei der normalen Rückfrage schon aktiv ist).
zum Unterrücken einer echten Fehlermeldung brauchst du:
On Error Resume Next - dies bewirkt, daß bei einem Fehler einfach mit dem nächsten Befehl weitergemacht wird, oder
On Error Goto Sprungmarke - dies bewirkt, daß bei einem Fehler zu dieser Sprungmakre gesprungen und der dort folgende Code ausgeführt wird.
das diese Befehle mit der entsprechenden Sorgfalt eingesetzt werden, versteht sich fast von selbst.
Gruß Daniel

Anzeige
On Error GoTo DispFehler (hat er doch drin !)
08.03.2013 16:07:39
Matthias
Hallo
Ich würde es nur an den Anfang der Prozedur setzen
at Stefan
Option Explicit
Sub test()
On Error GoTo DispFehler
Application.DisplayAlerts = False
MsgBox 3 / "R" 'löst einen Fehler aus!
'wird nur angezeigt, wenn kein Fehler entsteht!
MsgBox "DisplayAlerts=Aus"
DispFehler:
MsgBox "Hurra"
Application.DisplayAlerts = True
MsgBox "DisplayAlerts = " & Application.DisplayAlerts
End Sub


Gruß Matthias

AW: On Error GoTo DispFehler (hat er doch drin !)
08.03.2013 16:11:20
Daniel
Hi
nicht unbedingt.
ich würde das On Error... immer nur direkt vor die Funktion oder den Befehl setzen, welche den Fehler auslösen darf und danach sofort wieder mit On Error Goto 0 in den normalen Modus wechseln.
Gruß Daniel
Anzeige

17 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige