Farbänderung bei Zellen mittels VBA bei geschützten Blatt

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$T$22" Then

    

        With Range("T23:U23")

            If Target.Value = "Bitte wählen" Then

                 .Value = ""

                 .Interior.Color = RGB(255, 255, 255)

                 .Borders(xlEdgeTop).LineStyle = xlContinuous

                 .Borders(xlEdgeTop).Weight = xlThick

                          

             ElseIf Target.Value = "pauschal" Then

                 .Value = Range("S22") * 650

                 .Interior.Color = RGB(117, 113, 113)

                    

             ElseIf Target.Value = "individuell" Then

                 'Hier wird vom User später selbst die Eingabe direkt in die Zelle vorgenommen

                 .Value = ""

                 .Interior.Color = RGB(117, 113, 113)

                 .Borders(xlEdgeTop).LineStyle = xlNone

             End If

        End With

        

    End If

    



End Sub