KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe laat u een kalender verschijnen wanneer u op een specifieke cel in Excel klikt?

AuteurSiluvia Wijzigingsdatum

Stel dat er een kolombereik is op een werkblad waarin u regelmatig datums moet invoeren en wijzigen, maar het is vervelend om elke keer handmatig een datum in te voeren of te wijzigen. Hoe kunt u snel datums invoeren zonder ze handmatig in het kolombereik te typen? In dit artikel wordt uitgelegd hoe u een kalender laat verschijnen bij het klikken op cellen binnen een bepaald bereik, waarna de geselecteerde datum automatisch Datum invoegen in de geselecteerde cel.

Laat een kalender verschijnen bij het klikken op een specifieke cel met VBA-code

Los dit probleem stap voor stap op als volgt.

Opmerking: Deze methode werkt uitsluitend in Microsoft Excel 32-bits.

Stap 1: Maak een UserForm met een kalender

Maak een UserForm met de kalender die u wilt laten verschijnen wanneer u op een cel klikt.

1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > UserForm.

klik Invoegen > UserForm

3. Er verschijnen nu een UserForm en een Toolbox. Klik in de Toolbox op een willekeurig besturingselement, klik er met de rechtermuisknop op en selecteer vervolgens Aanvullende besturingselementen in het contextmenu. Zie de schermafbeelding:

klik op een willekeurig besturingselement en klik met de rechtermuisknop, selecteer vervolgens Aanvullende besturingselementen

4. Schuif omlaag in het dialoogvenster Aanvullende besturingselementen, vink de optie Microsoft MonthView-besturingselement aan in het vak Beschikbare besturingselementen en klik daarna op de knop OK.

schakel de optie Microsoft MonthView Control in

5. U ziet nu dat de knop MonthView is toegevoegd aan het venster Toolbox. Klik op deze MonthView-knop en vervolgens in het UserForm1-venster om een kalender in het UserForm te plaatsen.

maak een kalender in het Userform

Opmerking: U kunt de grootte van het UserForm-venster aanpassen aan de ingevoegde kalender door de rand van het UserForm te verslepen.

6. Dubbelklik op de ingevoegde kalender in UserForm1 en vervang in het Code-venster de oorspronkelijke code door het volgende VBA-script.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Opmerking: Met deze code wordt de geselecteerde datum automatisch in de geselecteerde cel ingevoegd zodra u een datum hebt gekozen in de kalender.

kopieer en plak de code in de module

Stap 2: Activeer de kalender bij het klikken op een cel

U moet nu bepaalde cellen opgeven waarbij bij een klik een kalender verschijnt. Volg hiervoor de onderstaande stappen.

7. Dubbelklik in het Project-deelvenster op de bladnaam links van het werkblad met de cellen waarop u klikt om de kalender te openen, en plak de onderstaande VBA-code in het codevenster. Zie de schermafbeelding:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Opmerking: In de code verwijzen A2:A10 naar de cellen waarop u klikt om de kalender te openen. Pas het celbereik aan naar wens.

kopieer en plak de code in de werkbladmodule

8. Druk tegelijkertijd op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

Vanaf nu verschijnt er, zodra u op een cel klikt binnen het beperkte bereik in het huidige werkblad, een kalender zoals weergegeven in de onderstaande schermafbeelding. De geselecteerde datum wordt automatisch ingevoegd in de gekozen cel zodra u een datum in de kalender hebt geselecteerd.

bij klikken op een cel binnen het opgegeven bereik verschijnt een kalender

Laat een kalender verschijnen bij het klikken op een specifieke cel met VBA-code

In dit gedeelte wordt het hulpmiddel Datumkiezer van Kutools voor Excel beschreven. Zodra u deze functie hebt ingeschakeld, verschijnt er een kalender zodra u op een datumcel klikt. Zo vervangt u de bestaande datum in een handomdraai door een nieuwe. Volg de onderstaande stappen om deze functie te gebruiken.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

1. Klik op Kutools > Inhoud > Inschakelen Datumkiezer.

klik op de functie Datumkiezer inschakelen

2. Nadat u deze functie hebt ingeschakeld, verschijnt er direct naast de cel een kalenderpictogram zodra u op een datumcel klikt.

klik op een datumcel en er verschijnt een kalenderpictogram

3. Klik op het kalenderpictogram om het dialoogvenster Datumkiezer te openen, en selecteer vervolgens een nieuwe datum om de datum in de geselecteerde cel te vervangen.

Klik op het kalenderpictogram om het Datumkiezer-dialoogvenster te openen

Opmerkingen:

  • Ongedaan maken-knopOngedaanmaken-knop: klik op deze knop om het vervangen van de datum ongedaan te maken;
  • Sluiten-knopSluiten-knop: klik op deze knop om het dialoogvenster Datumkiezer te sluiten;
  • Deze functie werkt uitsluitend op cellen met een datum.

Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.

Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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.

ExcelWordOutlookTabsPowerPoint
  • 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