Vba: so konvertieren sie das datum in die wochennummer

Sie können in VBA die folgende grundlegende Syntax verwenden, um ein Datum in eine Wochennummer umzuwandeln:

 Sub FindWeekNumber()
    
    Dim i As Integer

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

In diesem speziellen Beispiel wird die Wochennummer für jedes Datum im Bereich A2:A9 ermittelt und die Ergebnisse im Bereich B2:B9 angezeigt.

Beachten Sie, dass die VBA- WeekNum- Methode davon ausgeht, dass die Wochen am Sonntag beginnen.

Um einen anderen Tag als Wochenanfang anzugeben, können Sie der WeekNum- Methode ein zweites Argument hinzufügen:

 Sub FindWeekNumber()
    
    Dim i As Integer

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

Das folgende Beispiel zeigt, wie Sie die WeekNum- Methode in der Praxis verwenden, um Datumsangaben in Wochenzahlen umzuwandeln.

Beispiel: Datum in VBA in Wochennummer umwandeln

Angenommen, wir haben die folgende Datumsspalte in Excel:

Angenommen, wir möchten jedes Datum in eine Wochennummer umwandeln und die Wochennummer in Spalte B anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub FindWeekNumber()
    
    Dim i As Integer

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

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B zeigt die Wochennummer für jedes Datum in Spalte A an, vorausgesetzt, die Wochen beginnen am Sonntag.

Wenn Sie einen anderen Tag als Wochenanfang angeben möchten, beispielsweise Montag, können Sie die folgende Syntax verwenden:

 Sub FindWeekNumber()
    
    Dim i As Integer

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

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B zeigt jetzt die Wochennummer für jedes Datum in Spalte B an, vorausgesetzt, die Wochen beginnen am Montag.

Hinweis : Die vollständige Dokumentation zur VBA WeekNum- Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So vergleichen Sie Daten in VBA
So konvertieren Sie eine Zeichenfolge in VBA in ein Datum
So berechnen Sie Tage zwischen zwei Daten in VBA