Herbers Excel-Forum - das Archiv

Div/0 in VBA

Bild

Betrifft: Div/0 in VBA
von: thorsten
Geschrieben am: 03.10.2003 12:03:57
gibt es im Excel eine VBA formel, die automatisch in der gesamten
arbeitsmappe nach "div/0" fehlern sucht und diese durch "--" ersezt ??

Bild

Betrifft: AW: Div/0 in VBA
von: ChrisL
Geschrieben am: 03.10.2003 12:09:53
Hi Thorsten

Option Explicit



Sub Div0()
Dim iBlatt As Integer
Dim Zelle As Range
For iBlatt = 1 To Worksheets.Count
For Each Zelle In Worksheets(iBlatt).UsedRange
If IsError(Zelle) Then Zelle = "--"
Next Zelle
Next iBlatt
End Sub



Es werden allerdings auch alle anderen Fehler ersetzt, z.B. #N/A etc.

Gruss
Chris
Bild

Betrifft: ok
von: thorsten
Geschrieben am: 03.10.2003 12:14:58
danke
Bild

Betrifft: AW: Div/0 in VBA
von: Hans W. Hofmann
Geschrieben am: 03.10.2003 13:08:03
Bei Divisionen fragt man mittelts WENN-Abfage den Nenner<>0 ab und führt dann die Division aus Sonst "--". Da braucht kein VBA...
=WENN(A<>0;B/A;"--")

Gruß HW
 Bild