Talfarver skal følge udregningen i excel formel.

Hvordan udpeger/flytter du den billigste pris?

og så velkommen til Eksperten..

Hvis jeg har forstået spørgsmålet rigtig, ønsker du at kopiere formatet via en formel.
Det kan du ikke......

Men måske du kan lave noget via betinget formatering, det kræver dog nogle flere oplysninger om dine data.

Det kan sikkert laves via VBA men det kan jeg desværre ikke hjælpe med....

Udbyderens pris bliver udregnet med en formel

=HVIS(OG(C21<=I21;C21<=Q21);C21;HVIS(OG(I21<=C21;I21<=Q21);I21;HVIS(OG(Q21<=C21;Q21<=I21);Q21;ERROr)))

Feltet C21 indeholder denne formel =C9*$E$2*$E$4

C21 er sort skrift
I21 er rød skrift
Q21 er blå skrift

kan jeg få farven med over på den billigste?

giver det mening?

Var det muligt at få en kopi af filen? @-adresse under min profil.

PS: Du skal ikke anvende Svar når du er opgavestiller - anvend Kommentar.

Svar anvendes af forslagsstiller, når denne har en løsning, som måske kan Accepteres.

Rem Version 1 - Indsat under relevante ark
Rem ======================================
Const matrixZoneræk = 6
Const matrixLandsdelRæk = 7
Const matrixStartkol = "C"
Const matrixSlutKol = "V"

Const zoneRæk = 17
Const LandsdelRæk = 18

Const fraRæk = 21
Const fraKol = "X"
Const tilKol = "AC"
Dim antalRækker As Long

Dim ræk As Long, kol As Long, værdi As Long, zoneId As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
   
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For Each cc In Range(fraKol & CStr(fraRæk) & ":" & tilKol & CStr(antalRækker)).Cells
        If cc.Value <> "" Then
            ræk = cc.Row
            kol = cc.Column
            zoneId = Cells(zoneRæk, kol) & " " & Cells(LandsdelRæk, kol)
            værdi = Format(cc.Value, "###,###,###")
            cc.Font.ColorIndex = søgEfterFarve(ræk, værdi, zoneId)
        End If
    Next cc
Application.ScreenUpdating = True
End Sub
Private Function søgEfterFarve(række, værdi, id)
Dim matrixVærdi As Long, matrixId As String, matrixKol As Long

    For Each cc In Range(matrixStartkol & CStr(række) & ":" & matrixSlutKol & CStr(række)).Cells
        If cc.Value <> "" Then
            matrixKol = cc.Column
            matrixVærdi = Format(cc.Value, "###,###,###")
            matrixId = Cells(matrixZoneræk, matrixKol) & " " & Cells(matrixLandsdelRæk, matrixKol)
           
            If værdi = matrixVærdi And id = matrixId Then
                søgEfterFarve = cc.Font.ColorIndex
                Exit Function
            End If
        End If
    Next cc
End Function