letzte Woche hatte mir Ingo super bei einem VBA-Code geholfen. Diesen möchte ich gerne etwas erweitern.
Bisher werden diejenigen Spalten, die in Zeile 2 ein "X" haben, bei Ausführen des Makros nicht ausgeblendet.
Meine Frage ist nun:
Kann man in Abhängigkeit von einem weiteren Kenner, zum Beispiel einem "Y" in Zeile 3, dafür sorgen, dass die Zeilen 5 bis 8, der nicht ausgeblendeten Spalten grün gefärbt und entsperrt werden und die Zeilen der nicht ausgeblendeten Spalten, die kein "Y" haben, entfärbt und geschützt werden?
Das Makro, was ich bisher verwende lautet:
Sub ausblenden()
Dim S
For S = 8 To 22
If Cells(2, S) <> "x" And Cells(2, S) <> "X" Then Columns(S).Hidden = True
Next S
ActiveSheet.Calculate
Range("F3").Select
End Sub
Hier meine Beispieldatei:
https://www.herber.de/bbs/user/41037.xls
Für eure Ideen und Hinweise wäre ich sehr dankbar.
Viele Grüße
Andrew