stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
Sub Farbausblenden()
Dim ze As Long
Dim sp As Long
With ActiveSheet.UsedRange
.EntireRow.Hidden = False
For ze = 1 To .Rows.Count
For sp = 1 To .Columns.Count
If .Cells(ze, sp).Interior.ColorIndex -4142 Then
Rows(ze).Hidden = True
Exit For
End If
Next
Next
End With
End Sub
Gruß, Daniel