Schleife
10.01.2022 10:08:13
Karl-Heinz
mit meinen doch sehr bescheidenen VBA-Kenntnissen versuche ich seit Stunden vergebens eine Schleife hinzukriegen.
Es soll zwischen Zeile 5 und 25 nachstehendes ausgeführt werden. Ohne Schleife funktioniert es . Aber ich kapier das mit der Schleife nicht. Schon mal herzlichen Dank für Eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("Z5").Value = X Then
With Range("AA5:AL5")
.Locked = False
'.FormulaHidden = True
.Interior.ColorIndex = 0
End With
Else
With Range("AA5:AL5")
.Locked = True
'.FormulaHidden = False
.Interior.ColorIndex = 15
End With
End If
If Range("Z6").Value = X Then
With Range("AA6:AL6")
.Locked = False
.Interior.ColorIndex = 0
End With
Else
With Range("AA6:AL6")
.Locked = True
.Interior.ColorIndex = 15
End With
End If
If Range("Z7").Value = X Then
With Range("AA7:AL7")
.Locked = False
.Interior.ColorIndex = 0
End With
Else
With Range("AA7:AL7")
.Locked = True
.Interior.ColorIndex = 15
End With
End If
'..usw
End Sub
Anzeige