Fehlerbehandlung bei Div/0

[lapunta]

Hallo,

Ich habe eine Tabelle in der aus verschiedenen Werten eine Kennzahl berechnet wird. Ist einer dieser Werte nicht vorhanden, tritt der Fehler #DIV/0! auf. Das stört mich eigentlich nicht. Was mich aber stört ist, daß in der Spalte in der die Kennzahl steht, die letzte gültige Kennzahl wiederholt wird und am Ende "N/A" ausgegeben wird.

   

So sieht's gerade aus.


Es soll aber an in jeder Zeile, in der ein Fehler auftritt in der Spalte K ein "N/A" ausgegeben werden.

Code:

Dim i As Integer
Dim k01 As String
Dim kennzahl As Long

On Error GoTo ErrorHandler

For i = 8 To 47

kennzahl = Sheets("Kennzahl").Cells(i, 10).Value

    If kennzahl > 50000 Then
    
        Worksheets("Perform").Range("J" & i).Font.ColorIndex = 10
        Worksheets("Perform").Range("J" & i) = "p"
        
    End If
    
Sheets("Perform").Cells(i, 11) = kennzahl
Next

ErrorHandler:
Sheets("Perform").Range("K" & i) = "N/A"
Resume Next

End Sub

Im  Voraus vielen Dank!

[BoskoBiati]

Hi,

Code:

Es soll aber an in jeder Zeile, in der ein Fehler auftritt in der Spalte K ein "N/A" ausgegeben werden.

Wo ist Spalte K?
Anhand des Bildchens kann wohl keiner nachvollziehen, was da wo läuft!

[lapunta]

Spalte K ist die letzte Spalte auf dem "Bildchen", also die mit den 5stelligen Zahlen.

[RPP63]

Na toll!
Ich sehe weder, wo Spalte K ist
noch, wo da ein N/A ausgegeben wird
erst Recht nicht, wo welche Formel eingetragen wurde.

Glückwunsch zum überflüssigsten Post des Jahres!

[coemm]

Spalte K ist die letzte Spalte auf dem "Bildchen", also die mit den 5stelligen Zahlen.

Hallo,

du bist schon seit über einem Jahr im Forum und hast schon 23 Fragen gestellt.
Mittlerweile solltest du mitbekommen haben, dass "Bildchen" nicht viel bringen und die Helfer sich darüber beschweren, da sie damit meist nichts anfangen können, wie auch in diesem Fall.
Lade doch eine Beispieldatei hoch. Dort kann man auch die Formeln erkennen, mit denen du gearbeitet hast und dir dann besser helfen!

[RPP63]

Ich habe es mir noch einmal angesehen.
In Spalte K folgende Matrixformel:
{=WENN(SUMME(--ISTFEHLER(A2:J2));NV();"DeineBerechnung")}

Gruß Ralf