/ / Durch die gesamte Spalte in Excel VBA durchlaufen

Schleife durch die gesamte Spalte in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA Das durchläuft die gesamte erste Spalte und färbt alle Werte, die niedriger als ein bestimmter Wert sind.

Schleife durch die gesamte Spalte in Excel VBA

Schleife durch die gesamte Spalte in Excel VBA

Fügen Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Deklarieren Sie zuerst eine Variable namens i vom Typ Long. Wir verwenden hier eine Variable vom Typ Long, weil Long-Variablen eine größere Kapazität als Integer-Variablen haben.

Dim i As Long

2. Fügen Sie als Nächstes die Codezeile hinzu, die die Schriftfarbe aller Zellen in Spalte A in Schwarz ändert.

Columns(1).Font.Color = vbBlack

3. Fügen Sie die Schleife hinzu.

For i = 1 To Rows.Count

Next i

Hinweis: Arbeitsblätter können in Excel 2003 bis zu 65.536 Zeilen und in Excel 2007 oder später bis zu 1.048.576 Zeilen enthalten. Unabhängig davon, welche Version Sie verwenden, durchläuft die obige Codezeile alle Zeilen (die herunterladbare Excel-Datei ist im Format Excel 97-2003).

4. Als nächstes färben wir alle Werte, die niedriger sind als der in Zelle D2 eingegebene Wert. Leere Zellen werden ignoriert. Fügen Sie der Schleife die folgenden Codezeilen hinzu.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken (dies kann eine Weile dauern):

Schleife durch das gesamte Spaltenergebnis

Schleife durch das gesamte Spaltenergebnis

Lesen Sie auch: