Hilfe bei Zellen Sperren

Sub lockcellsbycolor()
Dim colorIndex As Integer
colorIndex = FF00FF
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub

=SUMME((Export!$A$2:$A$99=$E4)*(Export!$C$2:$C$99=H$2))