Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Fehlermeldung in Zellen mit VBA bearbeiten bzw abstellen

152 views
Skip to first unread message

Hans.Alborg

unread,
Aug 20, 2016, 4:36:59 AM8/20/16
to
Hallo,

wieder zurück an meiner Bahnsimulation, fällt mit (wiedermal) auf, daß
viele Zellen oben links so ein Dreieck haben.
Das besagt z.B. "als Text gespeicherte Zahlen" oder "zweistellige
Zeitangabe", mäkelt also am Format.

Ich würde gern für die ganze Seite eingeben "Fehler ignorieren", um
wieder zu einem gescheiten Erscheinungsbild meiner Simu zu kommen.

Dabei aber in den Exceloptionen dieses Feature nicht komplett abschalten.

Händisch müßte ich ja den Dialog für jede dieser millionen Zellen
einzeln absolvieren (und das Simulationsblatt wird ja immer wieder neu
erzeugt).

Ergo: gibt es die Möglichkeit mit VBA das ("Fehler ignorieren")
blattweise durchlaufen zu lassen?

TIA,

Hans

Claus Busch

unread,
Aug 20, 2016, 5:40:26 AM8/20/16
to
Hallo Hans,
die Anzeige kannst du nicht abschalten. Du müsstest die
Fehlerüberprüfung deaktivieren. Das Ganze nennt sich
Application.ErrorCheckingOptions
Und wie der Name schon ausdrückt, gilt das für Excel komplett, d.h. das
ist dann in den Optionen deaktiviert und Fehler werden in keiner Mappe
mehr angezeigt.
Du könntest für deine Simulation die entsprechende Fehlerüberprüfung
beim Öffnen abstellen und beim Schließen wieder aktivieren:

With Application.ErrorCheckingOptions
.TextDate = False
.NumberAsText = False
End With


Mit freundlichen Grüßen
Claus
--
Windows10
Office 2016

Hans.Alborg

unread,
Aug 20, 2016, 2:35:17 PM8/20/16
to
Hi Claus,

Claus Busch:
> Hans.Alborg:
>> Ergo: gibt es die Möglichkeit mit VBA das ("Fehler ignorieren")
>> blattweise durchlaufen zu lassen?
>
> Du könntest für deine Simulation die entsprechende Fehlerüberprüfung
> beim Öffnen abstellen und beim Schließen wieder aktivieren:
>
Hab ich mir fast gedacht.
>
> With Application.ErrorCheckingOptions
> .TextDate = False
> .NumberAsText = False
> End With

-oder immer ausschalten bevor sich die Simulationsseite aufbaut und beim
Löschen wieder scharfschalten...

Ist "TextDate" die Meldung mit der 2-stelligen Zeitangabe die ich
gesehen hatte oder gibt es noch weitere Meldungen?

Hans (---> testing)


Hans.Alborg

unread,
Aug 20, 2016, 2:55:05 PM8/20/16
to
>> Hans.Alborg:
> Hans (---> testing)

Die Sache ist erledigt, ich habe den Code beim Erstellen und Löschen der
Simulation eingefügt, so daß die Programmierarbeit mit Fehlerüberwachung
erfolgen kann.

Danke Claus und schönes We noch!

Hans

Claus Busch

unread,
Aug 20, 2016, 2:59:39 PM8/20/16
to
Hallo Hans,

Am Sat, 20 Aug 2016 20:35:13 +0200 schrieb Hans.Alborg:

> -oder immer ausschalten bevor sich die Simulationsseite aufbaut und beim
> Löschen wieder scharfschalten...
>
> Ist "TextDate" die Meldung mit der 2-stelligen Zeitangabe die ich
> gesehen hatte oder gibt es noch weitere Meldungen?

With Application.ErrorCheckingOptions
.EvaluateToError = False 'Zellen mit Formeln, die zu einem Fehler führen
.TextDate = False 'Zellen mit 2stelligen Jahreszahlen
.NumberAsText = False 'Zahlen, die als Text formatiert sind
.InconsistentFormula = False 'Inkonsistente, berechnete Spaltenformeln
.OmittedCells = False 'Formeln, die sich nicht auf alle Zellen im Bereich beziehen
.UnlockedFormulaCells = False 'Nicht gesperrte Zellen, die Formeln enthalten
.EmptyCellReferences = False 'Formeln, die sich auf leere Zellen beziehen
.ListDataValidation = False 'In eine Tabelle eigegebene Daten sind ungültig
.InconsistentTableFormula = False 'Formeln, die mit anderen im Bereich inkonsistent sind
End With

Die meisten dieser Fehlerüberprüfungen sind für Excel-Kenner
unsinnig. Außer "In eine Tabelle eingegebene Daten sind ungültig" habe
ich immer alle Fehlerüberprüfungen abgeschaltet.
0 new messages