Fehler in IF Code

[Basti567]

Hallo,

kann mir jemand sagen was hier falsch ist?

If Worksheets("Pfändungstabelle").Range("D9:I253").Value < "0" Then
Worksheets("Pfändungstabelle").Range("D9:I253").Value = 0

End If


Ich grübel seit einer Stunde und finde den Fehler nicht - es kommt immer die Meldung "Laufzeitfehler Typ 13".

Danke und viele Grüße

Basti

[UweD]

Hallo


du kannst den gesamten bereich nicht auf einmal prüfen.

- Zellenweise, 
- hier nur konstante Zahlenwerte

Code:

    Dim Zelle
    For Each Zelle In Worksheets("Pfändungstabelle").Range("D9:I253").SpecialCells(xlCellTypeConstants, 1)
        If Zelle.Value < 0 Then Zelle.Value = 0
    Next

LG UweD

[Basti567]

funzt - vielen Dank  :18: