vor einiger Zeit hat man mir hier super geholfen mit einem Makro, dass bei einer Bedingung Spalten ausblendet. Nun habe ich versucht, das Makro in eine andere Datei zu übernehmen.
Leider funktioniert es nicht.
der VBA-Code lautet wie folgt:
Option Explicit
Sub ausblenden()
Dim S
For S = 8 To Cells(8, 22).End(xlToLeft).Column
If Cells(2, S) <> "x" And Cells(2, S) <> "X" Then Columns(S).Hidden = True
Next S
ActiveSheet.Calculate
Range("F3").Select
End Sub
Ich habe mal eine Dummy-Datei hochgeladen:
https://www.herber.de/bbs/user/40858.xls
Für eure Hilfe wäre ich sehr dankbar.
Viele Grüße
Andrew