nachdem mir gestern super weitergeholfen wurde, muss ich ein weiteres Mal eine Frage zu folgendem VBA-Code stellen:
Ich möchte gerne eine weitere Variable einpflegen. Diese soll in Zeile 4 nach einem "z" suchen und dann die betreffenden Zellen entsperren.
Sub ausblenden5()
Dim S, x, i As Integer
Dim arrStart, arrEnde
arrStart = Array(5, 11, 22, 28, 31)
arrEnde = Array(9, 15, 25, 28, 32)
If UBound(arrStart) UBound(arrEnde) Then
MsgBox "Fehler in der Bereichsdefinition!"
Exit Sub
End If
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 i = 0 To UBound(arrStart)
For x = arrStart(i) To arrEnde(i)
For S = 8 To 22
If LCase(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
Next i
Range("F3").Select
End Sub
Die betreffende Datei habe hier mit hochgeladen:
https://www.herber.de/bbs/user/41095.xls
Für eure Hilfe wäre ich sehr dankbar
Viele Grüße
Andrew