Bisher habe ich nur die umgekehrte Lösung gefunden.
Wie erreiche ich dass eben nur diese Zeile stehen bleibt?
Mein verkehrtes Beispiel:
Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("A1:A3000")
If c.Value = "1" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
End Sub
Kann mir da jemand weiterhelfen??
Vielen Dank