With Worksheets("Ebewertung")
Ende = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 3 To Ende
If Worksheets("Ebewertung").Cells(i, 6).Value = "X" Then
With Worksheets("Ebewertung").Range(Cells(i, 3), Cells(i, 4)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3,4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
With Worksheets("Ebewertung").Range(Cells(i, 1), Cells(i, 5)).Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
With Worksheets("Ebewertung").Range(Cells(i, 1), Cells(i, 5)).Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
With Worksheets("Risikoauswertung").Range(Cells(i, 1), Cells(i, 5)).Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
End If
Next
End With