Beste,
ik heb een stukje VBA wat op basis van gegevens cellen gaat kleuren.
dit stuk werkt.
ik zou echter ook willen dat de cellen die over blijven, een andere kleur krijgen zolang deze nog niet door de VBA ingekleurd zijn.
voorwaardelijk opmaakt werkt hierin niet omdat de VBA (volgens mij) voorrang krijgt.
ik heb een stukje VBA wat op basis van gegevens cellen gaat kleuren.
dit stuk werkt.
ik zou echter ook willen dat de cellen die over blijven, een andere kleur krijgen zolang deze nog niet door de VBA ingekleurd zijn.
voorwaardelijk opmaakt werkt hierin niet omdat de VBA (volgens mij) voorrang krijgt.
Code:
Public Sub BijwerkenAssemblageUren(orderpos As String, startdatum As Date, einddatum As Date, gemaakteuren As Integer)
If gemaakteuren > 0 Then
Dim startkolom As Integer
Dim eindkolom As Integer
Dim kolom As Integer
Worksheets("Planning").Select
For kolom = 2 To 365
If Cells(2, kolom).Value = startdatum Then
startkolom = Cells(2, kolom).Column
eindkolom = startkolom + (2 * (einddatum - startdatum)) + 1
Exit For
End If
Next kolom
End If
If startkolom > 0 Then
For i = startkolom To eindkolom
For j = 4 To 42
If Mid(Cells(j, i).Value, 2, 10) = orderpos Then
If gemaakteuren > 2 Then
Cells(j, i).Interior.Color = RGB(200, 160, 35)
gemaakteuren = gemaakteuren - 4
End If
End If
Next j
Next i
End If
End Sub
