Datum vandaag selecteren?

[Demeter]

Ik probeer mbv onderstaande code de datum van vandaag te selecteren en dan deze cel + degene direct eronder rood te maken. Helaas werkt mijn code niet:

Sub DATUM_ROOD()
    Dim c As Range
    Dim MyRange As Range
    Dim MyDate
    
    MyDate = Date

    Set MyRange = Range("H3:GG3")

    For Each c In MyRange
        If c = MyDate Then
     
        c.Offset(0, 0).Resize(2, 0).Select
        c.Interior.ColorIndex = 3
        c.Interior.PatternColorIndex = xlAutomatic
    
        End If
    Next
End Sub

Graag zie ik een uitleg over wat ik verkeerd doe?


Bijvoorbaat dank,
Ferenc

 

[Wigi]

Demeter,

wat je zelf ook al wel wist, je verwees verkeerd naar de cellen. Gebruik dit:

Sub DATUM_ROOD2()
    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
        End If
    Next
End Sub

Wigi

 

[Demeter]

Thanks

Dank je wel Wigi,

heb hem zelf ook nog iets aangevuld zodat de vorige dag weer terug gaat naar de juiste cel opmaak.

Sub datum_rood()
    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
        End If
    Next
End Sub

Werkt weer perfect.

Dank je wel :thumb:


Groet,
Ferenc