Makro zum Spalten ausblenden in mehreren Tabellenb
19.10.2017 09:19:14
Abendwind
zunächst einmal eine grundsätzliche Frage zu diesem Forum.
Ich kenne es von jedem Forum so, dass man nach einem Thema suchen kann, und wenn dann ein passendes Thema zu seinem Problem gefunden hat, kann man sich in dem Thread mit seinen Posts beteiligen.
Hier scheint das nicht zu funktionieren, da ältere Themen direkt archiviert werden und somit nicht mehr zugänglich sind.
Wie auch z.B in diesem Fall.
https://www.herber.de/forum/archiv/880to884/883255_Makro_zum_Zeilen_ausblenden_in_mehreren_Tabellen.html
Somit muss ich ein neues Thema eröffnen.
Und zwar möchte ich bestimmte Spalten in mehreren Tabellenblättern mit Ausnahme des ersten Tabellenblatts ausblenden, wenn eine bestimmte Bedingung erfüllt ist.
Hier mein Code. Leider funktioniert gar nichts. Der Debugger zeigt mir keine Fehler an.
Sub AnsichtVS_LFP()
' AnsichtVS_LFP Makro
Dim WS As Worksheet
Worksheets("Start").Activate
For Each WS In ThisWorkbook.Worksheets
If B6 = "Vorschau" Then
WS.Columns("G:P").EntireColumn.Hidden = True
Else
WS.Columns("G:P").EntireColumn.Hidden = False
End If
Next WS
End Sub