VBA If-Abfrage mit IndentLevel in Excel-Schleife?

Question

Accepted Answer

`If ... Then Next i` ist in VBA ungültig.

Korrekt wäre z. B.:

```vba
For i = 10 To zeilen
    If Cells(i, "B").IndentLevel > 0 Then
        ' Aktion
    End If
Next i
```

Oder zum Überspringen der aktuellen Schleifenrunde:

```vba
For i = 10 To zeilen
    If Cells(i, "B").IndentLevel > 0 Then GoTo Weiter
    ' Code für Zeilen ohne Einzug
Weiter:
Next i
```

Wichtig:
- `Next i` beendet immer nur die aktuelle Schleifeniteration.
- Direkt hinter `Then` darf nicht einfach `Next i` stehen.

Sauberer ist oft:

```vba
For i = 10 To zeilen
    If Cells(i, "B").IndentLevel = 0 Then
        ' nur bearbeiten, wenn kein Einzug vorhanden
    End If
Next i
```

Verwandte Fragen