gibt es einen VBA Code zum Ausblenden aller Zeilen die Rot markiert sind?
Danke
Sub ausblenden()
Dim z As Range
For Each z In ActiveSheet.Rows
If z.Interior.ColorIndex = 3 Then z.Hidden = True
Next
End Sub
otto
Sub Bunt()
On Error GoTo Fehler
Dim Z
Dim Rng As Range
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A13:A100")
' Reset
Rng.Cells.EntireRow.Hidden = False
For Each Z In Rng
If Z.Interior.Color = 255 Then
Z.EntireRow.Hidden = True
End If
Next
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
- Dann wird der eingestellte Bereich bearbeitet