Hoe springt u snel naar de cel met de huidige datum in Excel?
U heeft een werkblad met een lijst van datums en wilt snel naar de cel springen die de huidige datum bevat. Hoe lost u dit op?
Spring naar de huidige datum met VBA
Spring naar de huidige datum met Zoeken en Vervangen
Spring naar de huidige datum met VBA
Hier is een VBA-code waarmee u in een handomdraai naar de cel met de huidige datum springt.
1. Activeer de werkmap die u wilt gebruiken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in de Module.
VBA: Spring naar huidige datum
Private Sub Workbook_Open()
'UpdatebyExtendoffice
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Druk op F5 en de cursor springt naar de cel met de huidige datum, waar u zich ook in de werkmap bevindt.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Spring naar de huidige datum met Zoeken en Vervangen
Als u niet bekend bent met VBA-code, kunt u ook de Zoeken en Vervangen-functie gebruiken om direct naar de huidige datum te springen.
1. Activeer het werkblad met de datumlijst, selecteer een lege cel en typ deze formule: =TODAY(). Druk daarna op Enter om de datum van vandaag weer te geven.
2. Druk op Ctrl + C om de datum van vandaag te kopiëren, selecteer vervolgens de lijst met datums en druk op Ctrl + F om het dialoogvenster Zoeken en Vervangen te openen. Plak in het tekstvak Zoeken naar de datum van vandaag door op Ctrl + V te drukken. Zie de schermafbeelding:
3. Klik op Alles zoeken. De cursor springt nu naar de cel met de datum van vandaag in de geselecteerde lijst.
Tip: Als u Kutools voor Excel hebt, kunt u de functie Specifieke cellen selecteren gebruiken om deze taak in een handomdraai uit te voeren. Het pakket is 30 dagen volledig functioneel zonder beperkingen. Download het nu en probeer het gratis.
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