Excel VBA: Single Loop + If-Anweisung; Laufzeitfehler 1004

Question

Ich möchte eine Spalte durchlaufen und alle Zellen in diesem Bereich mit dem Wert x der Zelle "AD2" vergleichen. Wenn der Wert der Zelle i kleiner als der Wert x ist, möchte ich, dass Zelle i rot markiert wird. Während folgenden Code ausführen:

Sub Button10() 
    Dim i As Long 
    Dim x As Integer 
    x = Range("AD2").Value 
    If Cells(i, 26).Value < x Then 
     Cells(i, 26).Font.Color = vbRed 
     For i = 1 To 500 
     Next i 
    End If 
End Sub 

ich folgende Fehlermeldung erhalten:

Run-time error '1004': Method '_Default' of object 'Range' failed.

Answer 1

Nun habe ich indented your code hoffentlich können Sie sehen, dass Ihre Logik außerhalb Ihrer For Schleife ist, wenn es in es sein sollte.

Sie erhalten einen Fehler, weil bei der Deklaration i As Long mit dem Wert 0 initialisiert wird. Daher wird diese Linie scheitern, weil i = 0 Rückkehr ist keine gültige Bereich:

If Cells(i, 26).Value < x Then 

Also das versuchen:

Sub Button10() 
    Dim i As Long 
    Dim x As Integer 
    x = Range("AD2").Value 
    For i = 1 To 500 
     If Cells(i, 26).Value < x Then 
      Cells(i, 26).Font.Color = vbRed 
     End If 
    Next i 
End Sub