Excel cel kleur veranderen

[Verwijderd]

Beste mensen, ik ben bezig in Excel, en heb een vraag.

Ik heb een tabel van 100 rijen lang, en wilde in een ander werkblad, afhankelijk van de waarde van de cel, de cel een kleurtje geven. De kleur van de cel moet van rood naar blauw lopen afhankelijk van de waarde. Ik heb al wat geprobeerd met Conditional Formating, mar daar kom ik niet verder dan 3 condities. Wie kan me vertellen wat te doen.

De waardes lopen uiteen van +8 tot -50. Aangezien ik graag de plus in het rood wil hebben, en de min in het blauw wilde ik eigenlijk een soort van palet kiezen voor de waardes. Wie kan me helpen.

Alvast bedankt.

[Witte]

VBA:

code:

Sub kleur()
Dim kolom, rij, waarde As Long
Dim rood, blauw as integer
  For rij = 1 To 100
    For kolom = 1 To 100
    waarde = Blad1.Cells(rij, kolom).Value
    If waarde <= 8 and waarde >= -50 Then
      rood = 4.397 * (waarde - 8)
      blauw = 255-rood
      Blad1.Cells(rij, kolom).Interior.Color = RGB(rood, 0, blauw)
    Else
      Blad1.Cells(rij, kolom).Interior.Color = RGB(0, 0, 0)
    End If
    Next kolom
  Next rij

End Sub

[Witte]

die 4,397 moet zijn -4,397

[Verwijderd]

Bedankt Witte,

maar hoe moet ik dat VBA script nu implementeren in Excel? Sorry voor de lullige vraag, maar ik weet niet hoe dat moet.
Alvast bedankt.

Bjorn

[Witte]

programmacode openen, invoegen module, helehandel plakken, evt. aanpassingkjes maken, zoals rij en kolom en uitvoeren maar.

[The_Masterer]

In de eigenschappen van de cel kun je standaard aangeven of de negatieve waarde in rood dient te worden weergegeven.'t is wel geen blauw, maar als dat geen ramp is.

[Verwijderd]

Dat doe ik, maar dan geeft ie aan als ik hem run dat er een type mismatch is. Ik ben geheel nieuw met VBA dus ik weet echt niet hoe dat werkt. Als ik op die gele pijl ga staan geeft ie aan dat waarde = 0. WAt moet ik doen om dat te laten werken. Thanx

Bjorn

[Verwijderd]

Hij doet het, sorry voor het ongemak. You are the man Witte.
Thanx for the help.

Bjorn