wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Sub tt()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.Columns
c.Hidden = c.Cells(7) = "x" Or c.Cells(7) = "D"
Next c
Application.ScreenUpdating = True
End Sub
Gruß
Rudi
Option Explicit
Sub spalteWeg()
Dim rng As Range
For Each rng In Range("A7:IV7")
If rng = "D" Or rng = "x" Then rng.EntireColumn.Hidden = True
Next
End Sub
Gruß Matthias