Hilfe bei Zellen Sperren
19.12.2022 17:17:26
Thanos
ich stecke etwas fest bei einem VBA Code.
Möchte gerne in meiner Mappe "Jänner" alle Zellen sperren die die Fabre FF00FF haben mittels Blattschutz, dazu benutze ich diesen Code:
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))
Habe es auch mit der suchen funktion probiert ob excel die farbigen zellen findet, findet er auch nicht.
Könnts ihr mir helfen wie ich diese Zellen sperren kann?
Danke im Vorraus
!Beispiel Datei ist leider > 650kb
Lg