På forhånd tak for al hjælp til dette, som du kan tilbyde.
Ved hjælp af denne side har jeg lavet følgende funktion;
Funktion ColorFunction(rFarve som område, rområde som område, valgfri SUM som boolesk)
Dæmp rCell As Range
Dæmp lCol As Long
Dæmp vResult
lCol = rColor.Interior.ColorIndex
Hvis SUM = Sandt, så
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Næste rCell
Else
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = 1 + vResult
End If
Næste rCell
End If
ColorFunction = vResult
End Function
I hver målcelle vil jeg have en sum af alle de celler i den række, der indeholder farven på den angivne celle;
=farvefunktion(AR4,H5:AP5,TRUE)
Hvordan kan jeg få målsalget til at opdatere, når en anden celle i rækken (H5:AP5) skifter farve?
Ved hjælp af denne side har jeg lavet følgende funktion;
Funktion ColorFunction(rFarve som område, rområde som område, valgfri SUM som boolesk)
Dæmp rCell As Range
Dæmp lCol As Long
Dæmp vResult
lCol = rColor.Interior.ColorIndex
Hvis SUM = Sandt, så
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Næste rCell
Else
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = 1 + vResult
End If
Næste rCell
End If
ColorFunction = vResult
End Function
I hver målcelle vil jeg have en sum af alle de celler i den række, der indeholder farven på den angivne celle;
=farvefunktion(AR4,H5:AP5,TRUE)
Hvordan kan jeg få målsalget til at opdatere, når en anden celle i rækken (H5:AP5) skifter farve?