Office: (Office 2010) On Error Resume Next geht nicht mehr?!

Hallo,

ich habe das Problem, dass seit gestern die Fehlerbehandlung nicht aktiv wird.
An mehreren Stellen stoppt der Debugger, wo er sonst wegen 'On Error Resume Next' weiterlaufen sollte.
Ich kann es mir nicht erklären.
Gibt es evtl. ein MSO Update, welches das erklären könnte?
Ich kann mich nicht erinnern, grundlegendes an dem Projekt geändert zu haben.
Gibt es die Möglichkeit die laut Excel-Hilfe "aktivierte" und "aktive" Fehlerbehandlung darzustellen/zu verfolgen?

Ich habe ein paar Beispiele beigefügt, die ständig in Verwendung sind und bisher keine Probleme bereiteten.

Vielen Dank für Eure Hinweise!

Eine ganze Funktion mit relevantem Präprozessor zur Prüfung auf offene Arbeitsmappe (incl. Addin): LZF 9

PHP:

         Option Explicit
Option Base 1

Public Function BookOpen(WorkBk As String) As Boolean
Dim wkb As Workbook
Err.Clear
On Error Resume Next
Set wkb = Workbooks(WorkBk)  <--- LZF9 normal ohne Fehlerhandlung
If Err.Number <> 9 Then
BookOpen = True
Exit Function
End If
BookOpen = False
End Function


:)

 

gelöscht

 

Im VBA-Editor unter

Extras / Optionen / Allgemein / Unterbrechen bei Fehlern

eventuell den Haken gesetzt "Bei jedem Fehler" ???

 

Wer ein Meister im "On Error Resume Next" werden will, hat einen höchst diskutablen Programmierstil.

Die Anweisung heißt ja nichts anderes als Fehler ignorieren und einfach weitermachen. Wenn man im Vollgas gegen die Wand fährt, fährt man trotz Ignorieren nicht einfach im freien Flug weiter, sondern man klebt deformiert an der Wand - zumindest in meiner Welt.

Eine Fehlerbehandlung dient in meinen Augen der Abwehr und Behandlung von unvorhersehbaren Fehlern. Dass es wie im ersten Codebeispiel eine Mappe mit dem verwendeten Pfad nicht gibt oder ein Nullstring oder fehlerhafter String übergeben wird, sollte in den Augen eines Entwicklers nicht unvorhersehbar sein. Vorhersehbares dagegen kann man prüfen und dann abwehren (z.B. aus dem Code mit Meldung aussteigen) bzw. funktionabel abändern.

Die wenigen Fälle, wo es für ein vorhersehbares Problem keine Prüfung gibt oder nur mit übermäßigem Aufwand umzusetzen wäre, wo man es also darauf ankommen lassen muss und dann nach Auftreten/Nichtauftreten des Fehlers entscheidet, würde man in eine eigene Prüffunktion auslagern.

Unvorhersehbares würde ich dann auch nicht mit "On Error Resume Next" behandeln, sondern kennenlernen und in die Welt des Vorhersehbaren überführen wollen, wo dann wie gesagt Fehler besser vermieden als behandelt werden.

 

Hallo Ralf,

da sich mir der Sinn nicht erschließt und mein letzter Lösungsversuch ohne Fehlerbehandlungsausnutzung daher vsl. nutzlos war: Was bezweckst Du denn überhaupt mit der Prüfung?

Was soll IsError(Zelle.Validation.AlertStyle) für eine Aussage treffen? Willst Du prüfen, ob eine Gültigkeitsregel für diese Zelle eingerichtet ist?

Beschreib mal in Worten (oder mit Pseudocode), was in welchen Fällen mit dem inneren Block passieren soll.

Grüße
EarlFred

 

*kreisch*

Vielen Dank, Scorefun!
In der Tat hatte ich da rumgefummelt, war mir jedoch über die Auswirkung nicht bewusst... **entsetzt

@ALL: ich antworte *auf jeden Fall* allen später, muss erstmal eine Kalkulation fertig machen...
Trotz gelöst, lass ich den Beitrag noch offen..

 

Hallo EarlFred,

Danke schon mal für deine Mühen.
Ich hatte hier schon mal ein Versuch gestartet:
http://www.herber.de/forum/archiv/13...80.htm#1301480

Die aktuelle Lösung ist die obere.
Ich komme später nochmal...

 

Hallo Ralf,

wenn Du wissen willst, ob eine Gültigkeitsregel verletzt ist, genügt m. E. If Not Zelle.Validation.Value Then
FALSE kann Zelle.Validation.Value nur sein, wenn eine Gültigkeitsregel vorhanden ist und diese nicht erfüllt wurde.

Grüße
EarlFred

 

Hallo ebs17,

Ja, mein Code ist höchst diskutabel. Das kommt daher, dass ich kein Profi bin, sondern mir das alles selbst zumeist an der damals noch guten Hilfe von Excel 2000 angeeignet habe. Mithilfe von diesem und dem Herber-Forum habe ich das schrittweise ausgebaut.

Ich bin da ganz bei dir. Ich nutze die Fehlerbehandlung nur für solche Fälle, in denen ich keine andere Lösung fand. Dass es da sicher etwas gibt, ich aber oft wenig Zeit für Recherchen und Board-Besuche habe, fällt da einiges unter den Tisch und wird q'n'd gemacht.

 

Hallo EarlFred,

ja, da hast du recht.
Zelle.Validation.Value = True kommt aber auch raus, wenn die das Zellen-Objekt *keine* Datenprüfung definiert ist.

Ich möchte in den True-Zweig des If verzweigen, wenn:
1. Zelle.Validation.Value = False
--> funktioniert, wenn *eine* Gültigkeitsprüfung vorhanden ist, und der enthaltene Wert ungültig ist
UND
2. keine Gültigkeitsprüfung vorhanden ist (was defakto nie der Fall ist, da immer "jeden Wert" gültig ist)
Zelle.Validation.wasauchimmer liefert Anwendungs- und objektdefinierter Fehler, außer Errortitle und Inputtitle, die jedoch nicht (immer) Verwendung finden, weswegen ich die nicht nutzen kann

Der Else-Zweig kommt:
1. Wenn Zelle.Validation.Value = True
UND
2. ein Validation-Objekt vorhanden

If Range.Validation is Nothing then --> geht nicht, weil sie nie Nothing wird, s.o.

Evtl. fällt dir was ein?