Wünsche allen einen guten Abend.
Habe mal wieder ein Problem!
Ich brauche ein Makro, welches mir Spalten mit der Hintergrundfarbe gelb ausblendet.
durchsucht wird nur Zeile 2 von A:AR.
Vorab vielen Dank für Eure Hilfe.
Gruß
Pet
Option Explicit
Sub Pet()
Dim InI As Long
Application.ScreenUpdating = False
For InI = 1 To 44
Columns(InI).EntireColumn.Hidden = Cells(2, InI).Interior.ColorIndex = 6
Next InI
Application.ScreenUpdating = tru
End Sub