Vba: hoe datum naar weeknummer te converteren

U kunt de volgende basissyntaxis in VBA gebruiken om een datum naar een weeknummer te converteren:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

In dit specifieke voorbeeld wordt het weeknummer voor elke datum in het bereik A2:A9 gevonden en worden de resultaten weergegeven in het bereik B2:B9 .

Merk op dat de VBA WeekNum -methode ervan uitgaat dat weken op zondag beginnen.

Om een andere dag als begin van de week op te geven, kunt u een tweede argument toevoegen aan de WeekNum- methode:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

Het volgende voorbeeld laat zien hoe u de WeekNum- methode kunt gebruiken om datums in de praktijk naar weeknummers te converteren.

Voorbeeld: converteer datum naar weeknummer in VBA

Stel dat we de volgende datumkolom in Excel hebben:

Stel dat we elke datum willen converteren naar een weeknummer en het weeknummer in kolom B willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i))
    Next i
    
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Kolom B toont het weeknummer voor elke datum in kolom A, ervan uitgaande dat de weken op zondag beginnen.

Als u een andere dag als begin van de week wilt opgeven, bijvoorbeeld maandag, kunt u de volgende syntaxis gebruiken:

 Sub FindWeekNumber()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i), vbMonday)
    Next i
    
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Kolom B toont nu het weeknummer voor elke datum in kolom B, ervan uitgaande dat de weken op maandag beginnen.

Opmerking : u kunt hier de volledige documentatie voor de VBA WeekNum- methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Datums vergelijken in VBA
Hoe string naar datum te converteren in VBA
Hoe dagen tussen twee datums in VBA te berekenen