Hoe haalt u de begin- en einddatum van de week op op basis van een specifieke datum in Excel?
Als u regelmatig werkt met roosters, projectplanningen, aanwezigheidslijsten of urenregistraties, moet u vaak het begin- en einddatum van de week bepalen voor een gegeven datum. Stel dat u bijvoorbeeld een lijst met datums heeft: dan wilt u snel weten op welke maandag (het begin van de week) en zondag (het einde van de week) elke datum valt, zoals te zien is in de schermafbeelding. Dit vergemakkelijkt het groeperen, rapporteren en samenvatten van wekelijkse gegevens. Maar hoe verkrijgt u deze informatie efficiënt in Excel? In dit artikel worden verschillende praktische methoden besproken – van eenvoudige formules tot geavanceerdere geautomatiseerde technieken – om het weekbegin en het weekeinde in Excel te bepalen.
Haal week Startdatum en Einddatum op basis van een specifieke datum met formules
Deze aanpak is ideaal als u een eenvoudige lijst met datums heeft en snel het begin en einde van de week voor elk item wilt bepalen met formules. Het is efficiënt voor kleine tot middelgrote datasets, vereist geen instellingen en werkt in alle moderne versies van Excel.
Hieronder helpen eenvoudige formules u het begin (maandag) en einde (zondag) van de week te bepalen voor elke willekeurige datum. Volg deze stappen:
Haal week Startdatum op uit gegeven datum:
1. Als uw lijst met datums zich in kolom A bevindt, klikt u op een cel (bijvoorbeeld C2) waarin u het weekbegin (maandag) wilt weergeven.
2. Voer in die cel de volgende formule in:
=A2-WEEKDAY(A2,2)+13. Druk op Enter om te bevestigen. Sleep daarna de vulgreep omlaag om de formule toe te passen op zoveel rijen als nodig.
Het resultaat toont de maandag van de week voor elke bijbehorende datum.
Haal week Einddatum op uit gegeven datum:
1. Klik in de cel waarin u het weekeinde (zondag) wilt weergeven, bijvoorbeeld D2.
2. Voer de volgende formule in:
=A2+7-WEEKDAY(A2,2)3. Druk opnieuw op Enter en gebruik de vulgreep om de formule naar beneden te kopiëren voor de overige datums.
Elk resultaat toont de zondag die valt in dezelfde week als de datum in kolom A.
Tips en opmerkingen:
- Deze formules gaan ervan uit dat uw week begint op maandag en eindigt op zondag (volgens de Europese conventie). Als uw werkweek anders is, moet u mogelijk de tweede parameter van de
WEEKDAG-functie aanpassen. - Onjuiste resultaten kunnen ontstaan als Excel datums niet herkent als geldige datumserienummers (bijvoorbeeld wanneer ze als tekst zijn geïmporteerd). Zorg ervoor dat uw datums correct zijn opgemaakt.
- Als u resultaten naar een ander blad kopieert, controleer dan of celverwijzingen correct worden aangepast of gebruik, indien nodig, absolute verwijzingen.
- U kunt de resulterende kolommen eenvoudig als datums opmaken via Start > Getalnotatie > Korte datum om een consistente datumweergave te garanderen.
VBA-code – Automatiseer het extraheren van weekbegin en Einddatum voor meerdere datumlijsten
Deze methode is ideaal als u herhaaldelijk het begin- en einddatum van een week moet extraheren voor verschillende bereiken of het proces wilt automatiseren, inclusief het verwerken van door de gebruiker geselecteerde datumslijsten. VBA is perfect geschikt voor gevorderde gebruikers en voor het automatiseren van herhalende taken over meerdere werkbladen.
1. Klik op Ontwikkelaarshulpmiddelen > Visual Basic, waardoor de editor Microsoft Visual Basic for Applications wordt geopend. Klik daar op Invoegen > Module en voer de volgende code in het venster in:
Sub ExtractWeekStartEndDates()
Dim WorkRng As Range
Dim cell As Range
Dim ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select the date range to extract week start/end dates:", xTitleId, WorkRng.Address, Type:=8)
If WorkRng Is Nothing Then Exit Sub
Set ws = WorkRng.Worksheet
ws.Cells(1, WorkRng.Columns(1).Column + WorkRng.Columns.Count).Value = "Week Start (Mon)"
ws.Cells(1, WorkRng.Columns(1).Column + WorkRng.Columns.Count + 1).Value = "Week End (Sun)"
For Each cell In WorkRng
If IsDate(cell.Value) Then
cell.Offset(0, WorkRng.Columns.Count).Value = cell.Value - Weekday(cell.Value, 2) + 1
cell.Offset(0, WorkRng.Columns.Count + 1).Value = cell.Value + 7 - Weekday(cell.Value, 2)
End If
Next
Application.DisplayAlerts = True
End Sub2. Na het plakken van de VBA-code klikt u op de knop 
Uitvoeren. Er verschijnt een dialoogvenster waarin u de datumreeks in uw werkblad kunt selecteren. De macro voegt automatisch twee kolommen toe rechts van uw selectie, labelt deze als „Weekbegin (ma)“ en „Weekeinde (zo)“, en vult ze in voor elke datum in uw lijst.
Parameters en opmerkingen:
- De macro werkt met elke rechthoekige selectie die datumwaarden bevat, zoals een kolom of een blok met datums.
- Als een cel in het geselecteerde bereik geen geldige Excel-datum bevat, blijven de bijbehorende cellen voor weekbegin en -einde leeg.
- U kunt de koplabels „Weekbegin (ma)“ en „Weekeinde (zo)“ naar wens aanpassen door de code te wijzigen.
- Om de macro opnieuw uit te voeren, herhaalt u eenvoudigweg de stappen voor selectie en uitvoering.
- VBA-bewerkingen kunnen niet ongedaan worden gemaakt met Ctrl+Z, dus maak eerst een kopie van uw gegevens.
Probleemoplossing: Als u het tabblad Ontwikkelaar niet ziet, gaat u naar Bestand > Opties > Werkbalk Snelle toegang aanpassen en schakelt u Ontwikkelaar in. Als er tijdens de uitvoering een fout optreedt, controleert u of de selectie datumwaarden bevat en of macro’s zijn ingeschakeld in uw Excel-toepassing.
Gebruik Power Query om kolommen voor weekbegin/-einde toe te voegen aan geïmporteerde datumgegevens
Voor gebruikers die zeer grote datasets beheren – met name gegevens die uit externe bestanden of databases worden geïmporteerd – biedt Power Query (Ophalen en transformeren) een robuuste en reproduceerbare oplossing om automatisch kolommen voor weekbegin en -einde te berekenen en toe te voegen. Power Query is beschikbaar in alle recente Excel-versies en ideaal voor het opschonen en herschikken van gegevens vóór verdere analyse.
- Selecteer uw gegevenstabel (zorg dat deze een kolom met datums bevat) en klik vervolgens op Gegevens > Uit tabel/bereik om de Power Query-editor te openen.
- Selecteer in Power Query uw datumkolom. Met deze kolom geselecteerd, gaat u naar het tabblad Kolom toevoegen en klikt u op Datum > Week > Begin van week. Hierdoor wordt een nieuwe kolom toegevoegd met de maandag die bij elke datum hoort.
Tip: Standaard is het begin van de week maandag. Als uw gegevens een andere startdag van de week gebruiken, klikt u op de vervolgkeuzelijst in Begin van week voor andere opties. - Houd de datumkolom nog steeds geselecteerd en klik op Kolom toevoegen > Datum > Week > Einde van week. Hiermee voegt u voor elke rij automatisch de bijbehorende zondag toe.
- Nadat u uw nieuwe kolommen hebt gecontroleerd, klikt u op Start > Sluiten en laden om de getransformeerde gegevens (nu inclusief weekbegin en -einde) terug te plaatsen in uw werkmap.
Voordelen en opmerkingen:
- Met Power Query vernieuwt u berekeningen automatisch zodra uw brongegevens wijzigt.
- Deze methode is ideaal voor regelmatig bijgewerkte, geïmporteerde of zeer grote lijsten dankzij de automatisering en reproduceerbaarheid.
- Als de knoppen Begin van week/Einde van week grijs zijn, controleer dan of uw kolom wordt herkend als het gegevenstype „Datum“. U kunt dit aanpassen via de vervolgkeuzelijst „Gegevenstype“ in Power Query.
- Power Query wijzigt uw oorspronkelijke brongegevens niet, maar maakt in plaats daarvan een nieuwe uitvoertabel met daarin de weekberekeningen opgenomen.
Samenvattende suggesties: Kies de methode die het beste past bij uw situatie: eenvoudige formules voor kleinere, ad-hoc lijsten; VBA voor automatisering of geavanceerde aanpassingen; en Power Query voor reproduceerbare workflows en grote datasets. Test altijd eerst op voorbeeldgegevens voordat u oplossingen op grote schaal inzet, en vergeet niet uw werk op te slaan voordat u bewerkingen uitvoert die de structuur van uw werkmap wijzigen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins