Macro automatisch starten?

[Demeter]

Goedendag,

Ik probeer nu al een tijdje mijn code te laten lopen als ik mijn werkblad selecteer.
Helaas krijg ik dit niet voor elkaar. Zou iemand mij kunnenv ertellen wat er niet goed gaat?

Private Sub WorkSheet_Activate()

    Application.ScreenUpdating = False

    Dim c As Range
    Dim MyRange As Range
    Dim MyDate As Date
    
    MyDate = Date

    Set MyRange = Range("H3:GG3")

    For Each c In MyRange
        If c = MyDate Then
            c.Range("A1:A2").Interior.ColorIndex = 3
            c.Range("A1:A2").Interior.PatternColorIndex = xlAutomatic
            c.Offset(0, -1).Interior.ColorIndex = 34 
            c.Offset(1, -1).Interior.ColorIndex = 0 
            c.Range("A1:A2").Select 
        End If
    Next
    
    Application.ScreenUpdating = True
    
End Sub

Deze code staat op het tabblad (rechtermuisknop/programmacode weergeven).


Bijvoorbaat dank,
Ferenc

 

[LucB]

Ferenc,

Zeg even in woorden wat er gebeuren moet.
Er moeten cellen een kleurtje krijgen. Wat zijn de voorwaarden?

 

[Demeter]

Range kleuren op datum is vandaag

Luc,

Cel in de range ("H3:GG3") moet voldoen aan de datum van vandaag, als dit waar is dan wordt deze cel + onderliggende cel (op rij 4) rood gekleurt, anders gebeurt er niks.


Groet,
Ferenc

 

[LucB]

Hallo Ferenc,

Probeer deze eens.

 

[Demeter]

Ohhhhhhhhhhhhhhhh yeah

Dat is het,

Dank je wel Luc :thumb: .


Groet,
Ferenc