Makro: Zeilen ausblenden

[mikro87]

Sub S()
    Dim i As Integer
        For i = 1 To 200
            Cells(i, 1).EntireRow.Hidden = IIf(Cells(i, 4) = "0", True, False)
        Next i
End Sub

[Käpt'n Blaubär]

Hallo,

verrate mir doch mal, warum Dein Herz an der iif-Funktion hängt und Du alle
Dir bisher gezeigten Möglichkeiten unbeachtet läßt

VBA-Begriff: IIf-Funktion


Gibt einen von zwei Teilen zurück, abhängig von der Auswertung eines Ausdrucks.
Syntax
IIf(expr, truepart, falsepart)
Die Syntax der IIf-Funktion verwendet die folgenden benannten Argumente:
Teil
Beschreibung
expr
Erforderlich. Der auszuwertende Ausdruck.
Truepart
Erforderlich. Der zurückgegebene Wert oder Ausdruck, wenn expr den Wert True ergibt.
Falsepart
Erforderlich. Der zurückgegebene Wert oder Ausdruck, wenn expr den Wert False ergibt.


Bemerkungen
IIf wertet immer sowohl den Teil truepart als auch den Teil falsepart aus, auch dann, wenn nur einer von beiden Teilen zurückgegeben wird. Aus diesem Grund kann es zu unerwünschten Nebeneffekten kommen. Wenn z.B. die Auswertung von falsepart zu einem Fehler aufgrund einer Division durch Null führt, tritt ein Fehler auch dann auf, wenn expr den Wert True hat.

[RPP63]

*gelöscht*, lag daneben
Gruß Ralf

[RPP63]

Rows(i).Hidden = Cells(i, 4) = 0

Aber ich bleibe beim AutoFilter.