VBA Excel - At finde celler med en bestemt baggrundsfarve.

http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColorIndex

if range("a1").interior.colorindex=tal

Sub find()
Dim x
ActiveSheet.Unprotect
For Each x In Range("a1:r100") 'ret til aktuel område
If x.Interior.ColorIndex = 35 Then
    x.Locked = False
End If
Next
ActiveSheet.Protect
End Sub

Super!

Har lige tweaket det lidt, så farven vælges ud fra den aktive celle og alle celler i arket låses inden de farved åbnes.

Sub find()
    Dim x
    Dim color As Integer
       
    ActiveSheet.Unprotect
    color = ActiveCell.Interior.ColorIndex 'Vælg den farve som som den aktive celle er
   
    'Lås alle celler
    Cells.Select
    Selection.Locked = True
       
    For Each x In Range("a1:r100") 'ret til aktuel område
        If x.Interior.ColorIndex = color Then
            x.Locked = False
        End If
    Next
    ActiveSheet.Protect
End Sub

Hmm, hvordan redigerer jeg i de kommentarer jeg har sendt? Kan man det??

nej kan ikke redigere kommentarer