Clever-Excel-Forum

Normale Version: Fehler in IF Code
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
funzt - vielen Dank  :18: