Code vba voor kleuren tekst

[Senso]

Public Regel As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Regel, 4).Interior.Color = RGB(Cells(Regel, 6).Value, Cells(Regel, 7).Value, Cells(Regel, 8).Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Regel = ActiveCell.Row
End Sub

Deze kleurt de cel (opvulkleur) in kolom D

Code staat in sheet 1

Nu wil ik dat bij dezelfde invoer rgb-code (is logisch) in F, G en H de cellen in I, J, K en L de overeenkomende tekstkleur krijgen. Dus niet de opvulkleur.

Wie wil hiervoor de code schrijven.

 

[edmoor]

De tekstkleur kan je doen met .Font.Color

 

[Senso]

Public Regel As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Regel, 4).Interior.Color = RGB(Cells(Regel, 6).Value, Cells(Regel, 7).Value, Cells(Regel, 8).Value)
    Cells(Regel, 9, 10, 11, 12).Font.Color = RGB(Cells(Regel, 6).Value, Cells(Regel, 7).Value, Cells(Regel, 8).Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Regel = ActiveCell.Row
End Sub

Deze werkt niet.

 

[edmoor]

Dat staat er los van.
Je kan Cells niet zo gebruiken: Cells(Regel, 9, 10, 11, 12)

 

[Senso]

Ik hoop dit in 2028 afgerond te hebben.

 

[cow18]

ik begrijp regel 4 in je PHP code niet, vermoedelijk moet je die rij gewoon uitsplitsen in 4 aparte rijen (of in een loopje), maar met de aanpassing van 1 rij per jaar ben je op je gemakjes klaar tegen 2028.