Zeilen ausblenden, mehrere Bedingungen
Dietmar
wie kann ich den Code erweitern, so dass ich mehrere Value-Bedinungen vorgeben kann. Es sollen also alle Zeilen ausgeblendet werden; es sei denn in der Spalte "C" stehen beispielswise die Werte "ja", "vielleicht" oder "unentschieden". Ich möchte mir verschiedenen Mischungen erstellen, die mehrer Bedingungen berücksichtigen.
Danke vorab!
Gruß
Dietmar aus Aachen
Sub Zeilen_ausblenden_atw()
Application.ScreenUpdating = False
Rows("5:100").EntireRow.Hidden = False
For i = 5 To 100
If Cells(i, 3).Value "ja" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Anzeige