VBA: Farvelægge lørdag og søndag ud fra dato i celle

Skal det være VBA ?

Ellers prøv:

Marker Data i række 3
Betinget formatering
Bruge en formel til at bestemme, hvilken celler der skal formateres
=ELLER(UGEDAG(A3)=7;UGEDAG(A3)=1)
Vælg farve

Det er så vigtigt at se i "Boksen navn" hvad der står, efter du har markeret?
eks.1. A3: 01-05-2012 Markeres venstre mod højre: =ELLER(UGEDAG(A3)=7;UGEDAG(A3)=1)
eks.2. AE1: 31-05-2012 Markeres højre mod venstre: =ELLER(UGEDAG(AE1)=7;UGEDAG(AE1)=1)

TIP: Lav formateringen på: 01-05-2012 og derefter "Fyld ud"

Hej Morten
Ja, det skal være via Vba, da det skal bruges, som en del af en mere omfattende kode.
nb. jeg havde set den tidligere tråd, hvor du svarede med en betinget formatering.

Her er en idé til hvordan det kunne gøres med VBA :)

Sub Farve()
Range("A3").Select

Do Until Len(ActiveCell.Text) = 0
    If Weekday(ActiveCell.Text) = 7 Or Weekday(ActiveCell.Text) = 1 Then
        ActiveCell.Interior.ColorIndex = 36
    End If
ActiveCell.Offset(0, 1).Select
Loop

End Sub

Hej It-GuFFe
Dit forslag ser godt ud, den kan jeg godt brygge videre på :0))
Kan du også hjælpe det sidste stykke vej, med at konvertere det fundne ugenummer til datoen på den første dag i ugen (mandag)?

Her er hvordan du kan få UgeNr på :)

Sub UgeNr()
    Range("A1").Select
    Do Until Len(ActiveCell.Text) = 0
        If Weekday(ActiveCell.Text) = 2 Then
            ActiveCell.Offset(1, 0) = CInt(Format(ActiveCell.Text, "ww"))
        End If
    ActiveCell.Offset(0, 1).Select
Loop
End Sub

Super - Lægger du et svar, så er der point på vej. :0)). Tak for hjælpen.

nb. kan jeg komme fra et ugenummer til første dag i ugen?

Her er et svar :)


Fandt lige sådan en her, det er dog med dato og ikke ugenummer.

Function Last_Monday(vDate As Date)
    'if today is Monday, then return today's date
    If Weekday(vDate, vbSunday) = 2 Then
        Last_Monday = vDate
    Else
        Last_Monday = vDate - Weekday(vDate, vbSunday) + 2
    End If
End Function