vanaf datum naar weeknummer aangeven

[batfink2002]

Ik wil een begindatum en einddatum in vullen en dat hij dan op hetzelfde blad de week blokjes kleurt d.m.v.formules

 

[SjonR]

Met VBA misschien toch?

Private Sub Worksheet_Change(ByVal Target As Range)

For Each CL In Range("F2:S3")
If CL.End(xlUp).Value >= DatePart("ww", Cells(CL.Row, 2).Value, vbMonday, vbFirstFourDays) And CL.End(xlUp).Value <= DatePart("ww", Cells(CL.Row, 3).Value, vbMonday, vbFirstFourDays) Then
CL.Interior.Color = vbBlue
Else
CL.Interior.Color = xlNone
End If
Next

End Sub

 

[HSV]

Met voorwaardelijke opmaak.

Met de nieuwere versies van Excel kan de formule eenvoudiger daar de functie 'weeknummer' is verbeterd.

=EN(F$1>=weeknummer($B2;21);F$1<=weeknummer($c2;21)

Ik gebruik een iets oudere versie, maar desalniettemin een goede oplossing lijkt me.

 

[edmoor]

Ik heb ook iets met een stukje VBA. Achter een knopje op het werkblad gezet.
Bekijk bijlage weeknummers-1.xlsm

De 2e regel is trouwens 3 weken en niet 4.

 

[HSV]

Komt doordat 30-10-2017 en 4-12-2017 respectievelijk in week 44 en 49 valt.
Gewoon de data verminderen met 1 dag in c2 en c3 lijkt me een logisch vervolg.

 

[edmoor]

Ik heb alleen naar het verschil in dagen gekeken tussen die 2 datums en dat is 21.
Het is maar net hoe TS ermee om wil gaan.

 

[snb]

Of ?

CF:

=INT((F$1-WEEKNUM($B2;21))/(WEEKNUM($C2;21)-WEEKNUM($B2;21)))=0

 

[batfink2002]

Bedankt voor de oplossingen ik weet niet hoe ik de code in mijn bestand kan zetten en zou hij ook het aantal weken kunnen invullen

 

[edmoor]

Er worden verschillende oplossingen genoemd, ook voor het vullen van het aantal weken.
Dus over welke oplossing heb je het nu?

 

[batfink2002]

Ik vond de oplossing met het knopje heel mooi maar ik ben een leek, ik weet niet hoe ik die in mijn excelblad op me werk kan invoeren

 

[edmoor]

Een knop, in dit geval een ActiveX knop, maak je zo:
https://support.office.com/nl-nl/ar...=nl-NL&rs=nl-NL&ad=NL&ocmsassetID=HP010342137

Dit is de code achter het knopje:

Sub CommandButton1_Click()
    Dim weken As Integer
    With ActiveSheet
        LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        For i = 2 To LR
            .Cells(i, 6).Resize(, 14).Interior.Color = xlNone
            Week = DatePart("ww", .Cells(i, 2) - Weekday(.Cells(i, 2), 2) + 4, 2, 2)
            weken = Round(.Cells(i, 3) - .Cells(i, 2), 0) / 7
            If weken = 0 Then weken = 1
            Cells(i, 4) = weken
            For x = 39 To 52
                If .Cells(1, x - 33) = Week Then
                    .Cells(i, x - 33).Resize(, weken).Interior.Color = 14395790
                End If
            Next x
        Next i
    End With
End Sub

Deze vult nu tevens het aantal weken in kolom D.
Voorwaarde voor de werking van de code is dat de layout van het blad niet veranderd.