Automatisk Fill Color i celler baseret på Fill Color i andre celler

Hvilken kolonne?
Hvilke farve?
Celle, der også skal have farven?
Under hvilke omstændigheder skal VBA-koden udføres?

Jeg tænkte nok at der måtte mere forklaring til :-)

Det er en arbejdsplan for et stort projekt hvor hver række er en arbejdsopgave.
Den periode hvor en person arbejder på en arbejdsopgave markeres med en farve der er unik for hver person.

I bunden af regnearket står personernes navne og disse celler er er markeret med personernes farve. Det er i rækken ud for disse celler at jeg gerne ville have markeret hvornår personerne arbejder på projektet samlet. Så der skal søges i cellerne i en  del af en kollone og hvis den givne farve findes, skal cellen ud for personen fyldes med den farve.
Gi´r det mening? :-)

Jo tak det hjalp lidt - men endnu bedre, hvis du kunne sende eller oploade en kopi eller model - så var det lidt mere håndgribeligt.

@-adresse under min profil.

Const startMræk = 58
Const slutMræk = 76
Const stepMræk = 3
Const kolM = "A"

Const startKalRæk = 9
Const slutKalræk = 56
Const startKalKol = "E"
Const slutKalKol = "JD"

Const hvidFarve = 2
Public Sub farveOpdatering()
Dim ræk As Long, farve
    Application.ScreenUpdating = False
   
    For ræk = startMræk To slutMræk Step stepMræk
Rem clear pt farve for medarbejder
        clearMfarve ræk
       
Rem find medarbejderens farve og indsæt
        farve = Range(kolM & ræk).Interior.ColorIndex
        søgMedarbejderFarve farve, ræk + 1
    Next ræk
   
    Application.ScreenUpdating = True
   
    Range("E9").Select
   
    MsgBox "Farver opdateret"
End Sub
Private Sub clearMfarve(ræk)
    ActiveSheet.Range(startKalKol & ræk + 1 & ":" & slutKalKol & ræk + 1).Select
    Selection.Interior.ColorIndex = hvid
    clearBaggrund
End Sub
Private Sub clearBaggrund()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Private Sub søgMedarbejderFarve(farve, ræk)
Dim cc
    For Each cc In Range(startKalKol & startKalRæk & ":" & slutKalKol & slutKalræk).Cells
        If cc.Interior.ColorIndex = farve Then
            Cells(ræk, cc.Column).Interior.ColorIndex = farve
        End If
    Next cc
End Sub

Mange mange tak for hjælpen :-)

Selv tak - en fornøjelse..