Office: Div durch 0 abfangen

NBA · 5. Oktober 2014

Hi,
ich habe ein Excel-File mit sehr vielen "Division durch 0" Fehler. Dies kann man ja per Formel abfangen, aber da sitze ich sehr lang :-) Gibt es in VBa eine Möglichkeit, all diese Fehler auf den Wert 0 zu setzen?

Viele Grüße und Danke
NBA

:)

Huan90 · 7. Oktober 2014

Hallo NBA,

Code:

Sub TauscheFehlerGegenNull()
Dim EinzelneZelle As Range
For Each EinzelneZelle In ActiveSheet.UsedRange
If IsError(EinzelneZelle) Then _
EinzelneZelle.Value = 0
Next EinzelneZelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Quelle: http://www.computerwissen.de/office/...-ersetzen.html

LG Huan90

edit: ACHTUNG! -> Dieses Makro ersetzt alle Werte in Zellen mit einem Fehler durch eine 0, nicht nur die "#DIV/0!"-Fehler!

Hajo_Zi · 7. Oktober 2014

ich hätte die Formel nicht gelöscht
Auf der Grundlage des o.g. Codes.
Code:

Option Explicit

Sub TauscheFehlerGegenNull()
Dim EinzelneZelle As Range
For Each EinzelneZelle In ActiveSheet.UsedRange
If IsError(EinzelneZelle) Then
EinzelneZelle.Formula = "=IFERROR(" & Mid(EinzelneZelle.Formula, 2) & ",0)"
End If
Next EinzelneZelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 7. Oktober 2014

und ein wenig schneller.
Code:

Option Explicit

Sub TauscheFehlerGegenNull()
Dim EinzelneZelle As Range
For Each EinzelneZelle In ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
If IsError(EinzelneZelle) Then
EinzelneZelle.Formula = "=IFERROR(" & Mid(EinzelneZelle.Formula, 2) & ",0)"
End If
Next EinzelneZelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 7. Oktober 2014

Hallo,

Sollten nur die #DIV/0!-Fehler gefixt werden, dann so:

Code:

Sub TauscheDiv0FehlerGegenNull()
Dim EinzelneZelle As Range
For Each EinzelneZelle In ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
If IsError(EinzelneZelle) Then
If EinzelneZelle = CVErr(xlErrDiv0) Then
EinzelneZelle.Formula = "=IFERROR(" & Mid(EinzelneZelle.Formula, 2) & ",0)"
End If
End If
Next EinzelneZelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 7. Oktober 2014

Hi!
Ich habe da mal ne Nachfrage:
Wir (ich und meine Excel-Hilfe) kennen die Konstante 23 nicht (oder ist das ein nicht dokumentierter Ableger von -4123?)!
Ich würde ja die 16 (xlErrors) nehmen?

Und da der TE doch nur tauschen will, könnte man doch .Value = 0 nehmen (oder otherwise der gesamten Spalte die IFERROR()-Formel verpassen)(so ganz ohne Schleife)?

Gruß, Ralf

xlph · 7. Oktober 2014

Hallo RPP63neu,

in der Excel-Hilfe wirst du es auch nicht finden.

Wenn dann in der VBA-Hilfe.

Suche nach 'SpecialCells' und lies was zum Parameter 'Wert' steht.

Hajo_Zi · 7. Oktober 2014

Hallo Ralf,

die Hilfe ist nicht falsch.
Die 23 ist die Summe folgender Schalter
xlErrors 16
xlLogical 4
xlNumbers 1
xlTextValues 2

xlph · 7. Oktober 2014

Wenn die 23 gewählt wird, dann kann man die auch gleich weglassen.

Bzw. Warum nicht noch enger eingrenzen:

Code:

Sub TauscheDiv0FehlerGegenNull2()
Dim EinzelneZelle As Range
For Each EinzelneZelle In ActiveSheet.UsedRange.SpecialCells(xlFormulas, xlErrors)
If EinzelneZelle = CVErr(xlErrDiv0) Then
EinzelneZelle.Formula = "=IFERROR(" & Mid(EinzelneZelle.Formula, 2) & ",0)"
End If
Next EinzelneZelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 7. Oktober 2014

Hallo!
Thanks, Ihr beiden!*boah
Ich zitiere die Excel (Untergruppe VBA) - Hilfe:

Diese Werte können addiert werden, wenn mehrere Typen zurückgegeben werden sollen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab ich irgendwann mal gelernt, nie gebraucht, und schäme mich auch heftig ...

Gruß, Ralf

Office: Div durch 0 abfangen

Div durch 0 abfangen

Div durch 0 abfangen

Div durch 0 abfangen

Div durch 0 abfangen

Div durch 0 abfangen - Similar Threads - Div abfangen

#DIV/0! Unterdrücken

Mittelwertwenn #DIV/0!

#DIV/0 Fehler bei MITTELWERTWENN

in einer Berechnung einen 0 wert Ignorieren ?

So korrigieren Sie einen #DIV/0!-Fehler

Excel "Summendivision" #DIV/0

DS zählen aus div. Tabellen