Hoe verkrijgt u in Excel de datum van het einde van de maand?
Misschien is het voor u eenvoudig om de laatste dag van een maand te bepalen, maar hoe verkrijgt u snel de laatste dag van elke maand wanneer u meerdere datums in Excel heeft? Hieronder deel ik enkele handige trucs om dit probleem in Excel razendsnel op te lossen.
Datum van einde van de maand verkrijgen met formules in Excel
Datum van einde van de maand verkrijgen met VBA in Excel
Datum van einde van de maand verkrijgen met formules in Excel
Het gebruiken van een formule om de einddatum van elke maand te bepalen, is voor vrijwel elke Excel-gebruiker kinderlijk eenvoudig.
Selecteer een cel naast de datumgegevens en typ vervolgens deze formule =DATUM(JAAR(A2);MAAND(A2)+1;0) (A2 is de cel waarvan u de datum van het einde van de maand wilt verkrijgen) en druk op de Enter-toets op het toetsenbord. Sleep daarna de automatische invulgreep naar het bereik waarop u deze formule wilt toepassen. Nu wordt de einddatum van elke maand weergegeven in de cellen. Zie schermafbeeldingen:
 |
 |
 |
U kunt ook deze formule gebruiken =LAATSTE.DAG(A2;0) om de einddatum van de maand te verkrijgen. (Formatteer de resultaatcellen voorafgaand aan het invoeren van deze formule als datumnotatie.)
Tip: In Excel 2003 of een oudere versie moet u, voordat u de formule =LAATSTE.DAG(A2;0) kunt gebruiken, eerst de invoegtoepassing Analysis Toolpak installeren via Extra > Invoegtoepassingen. Zie schermafbeeldingen:
 |  |  |
Datum van einde van de maand verkrijgen met een gedefinieerde functie in Excel
Als u bekend bent met VBA, kunt u de onderstaande VBA-code gebruiken om de einddatum van de maand te bepalen.
1. Druk tegelijkertijd op de Alt + F11-toetsen op het toetsenbord om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module om een nieuw modulevenster in te voegen. Kopieer daarna de volgende VBA-code naar het venster.
VBA: Bepaal de datum van het einde van de maand.
Function LastDayInMonth(Optional pDate As Date = 0) As Date
'Updateby20140723
If pDate = 0 Then pDate = VBA.Date
LastDayInMonth = VBA.DateSerial(VBA.Year(pDate), VBA.Month(pDate) + 1, 0)
End Function
3. Sla op en sluit dit venster. Selecteer vervolgens een cel en typ de formule =LaatsteDagInMaand(A2) (A2 bevat de datum waarvan u de laatste dag van de maand wilt bepalen). Druk daarna op de Enter-toets en u krijgt direct de einddatum van de maand.
Opmerking: Formatteer de resultaatcellen ook als datumnotatie voordat u de formule =LaatsteDagInMaand(A2) invoert, want deze VBA-code vereist dat.
Gerelateerde artikelen:
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