Spalten in mehreren Arbeitsblättern ausblenden
WillyJ
mit dem beigefügten Makro werden in einem von 90 Arbeitsblättern einer Datei die ROT markierten Spalten nach Eintragung von ROT in die Abfragebox die entsprechenden Spalten ausgeblendet.
Wie kann ich erreichen ,dass mit einer Abwandlung des Makros in allen Arbeitsblättern auf einmal dieser
Effekt eintritt.
Danke für Eure Hilfe
Willy
Sub RoteFelderAusblenden()
' RoteFelderAusblenden Makro
Dim rng_kürzel As Range
Dim str_kürzel As String
str_kürzel = InputBox("Bitte ROT eintragen!")
For Each rng_kürzel In ActiveSheet.Range("b1:an1") 'Tabellenname anpassen
If rng_kürzel str_kürzel Then ActiveSheet.Columns(rng_kürzel.Column).EntireColumn.Hidden = _
_
True
Next rng_kürzel
End Sub
Anzeige