Hoe voegt u een nieuw werkblad toe met de huidige datum in Excel?
Sommige financiële en salesmedewerkers moeten mogelijk dagelijks Nieuw werkblad met de huidige datum invoegen voor de statistieken van hun dagelijkse werk. Als u handmatig een Nieuw werkblad invoegt en deze daarna handmatig hernoemt, is dat omslachtig. Vandaag introduceer ik u enkele snelle trucs om dit probleem op te lossen.
Voeg een Nieuw werkblad toe met de huidige datum met behulp van VBA-code
Voeg Nieuw werkblad toe met opeenvolgende datums met behulp van Kutools voor Excel
Voeg een Nieuw werkblad toe met de huidige datum met behulp van VBA-code
De volgende VBA-code voegt elke dag automatisch een nieuw werkblad met de huidige datum in wanneer u deze uitvoert.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster.
VBA-code: Voeg een Nieuw werkblad toe met de huidige datum
Sub AddSheets_TodayDate()
'Updateby20140717
Dim szTodayDate As String
szTodayDate = Format(Date, "mmm-dd-yyyy")
On Error GoTo MakeSheet
Sheets(szTodayDate).Activate
Exit Sub
MakeSheet:
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = szTodayDate
End Sub
3. Druk vervolgens op de F5-toets om deze code uit te voeren. Er wordt dan een nieuw werkblad met de datum van vandaag ingevoegd na het bestaande werkblad. Zie schermafbeelding:
Opmerking: Wanneer u deze werkmap opslaat en sluit, sla deze dan op als Excel-werkmap met macro’s ingeschakeld door op Bestand > Opslaan als te klikken. Zorg er de volgende dag, bij het openen van de werkmap, voor dat u op Inhoud inschakelen klikt, zodat de code succesvol kan worden uitgevoerd om een nieuw werkblad met datum toe te voegen.
Voeg Nieuw werkblad toe met opeenvolgende datums met behulp van Kutools voor Excel
De bovenstaande code voegt slechts één werkblad met de datum van vandaag tegelijk in. Als u meerdere werkbladen met opeenvolgende datums wilt invoegen, helpt de functie Werkbladen met reeks maken van Kutools voor Excel u daarbij.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu.
Als u Kutools voor Excel hebt geïnstalleerd, gaat u als volgt te werk:
1. Typ de datum van vandaag in een lege cel en sleep vervolgens de vulgreep om de cellen automatisch te vullen met de gewenste datumreeks.
2. Klik vervolgens op KUTOOLS PLUS > Werkblad > Werkbladen met reeks maken.
3. Geef in het dialoogvenster Werkbladen met reeks maken een werkblad op waarop u de nieuwe bladen wilt baseren via de keuzelijst Gebaseerd op werkblad. Selecteer vervolgens de optie Gegevens binnen selectie onder het gedeelte Werkbladnaam gebaseerd op om een gegevensbereik te kiezen dat u als bladnamen wilt gebruiken. Zie schermafbeelding:
4. Klik vervolgens op OK; er wordt dan een nieuw werkblad gemaakt met bladnamen die een datumreeks vormen. Zie schermafbeelding:
Meer informatie over deze functie voor het maken van werkbladen met een reeks.
Gerelateerd artikel:
Hoe maak je werkbladen met een reeks op basis van een bereik cellen in Excel?
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