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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen