kann man bei der Definition einer Variable x es erreichen, dass sie nicht nur von 5 bis 9 sondern auch von 11 bis 15 usw läuft?
Das man also in etwa so formluiert:
For x = 5 To 9 And 11 To 15 And 22 To 25
Das ganze Makro lautet wie folgt:
Sub ausblenden3()
Dim S, x
For S = 8 To 22
If Cells(2, S) "x" And Cells(2, S) "X" Then Columns(S).Hidden = True
Next S
ActiveSheet.Calculate
For x = 5 To 9
For S = 8 To 22
If Cells(3, S) "y" And Cells(3, S) "Y" Then
Cells(x, S).Interior.ColorIndex = xlNone: Cells(x, S).Locked = True
Else
Cells(x, S).Interior.ColorIndex = 4: Cells(x, S).Locked = False
End If
Next S
Next x
Range("F3").Select
End Sub
Insgesamt hätte ich 17 Bereiche in einem Tabellenblatt. Da wäre es super, wenn man das irgendwie anpassen könnte.Hier zur Info die Datei, aus das Makro stammt:
https://www.herber.de/bbs/user/41093.xls
Für eure Hilfe wäre ich sehr dankbar.
Viele Grüße
Andrew