ich habe ein ein Makro, welches ich auf meheren Tabellen durchlaufen lassen möchte, leider habe ich hier für mein Problem noch nicht die passende Lösung gefunden. Vielleicht kann mir jemand helfen. Das Makro soll in Tabellenblatt 1 und 2 laufen.
Code:
Sub SpaltenEinAusblenden()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Range("B9:nl9")
rngC.EntireColumn.Hidden = (Len(rngC.Value) And rngC.Value = "x")
Next rngC
Application.ScreenUpdating = True
End Sub
Vielen Dank schon mal im Voraus für evtl. Hilfe.Grüße Mike