Hoe haalt u de huidige tijdzone op en toont u deze in een cel in Excel?
Bij het werken met Excel-werkmappen—vooral in een samenwerkingsverband of internationale context—is het vaak essentieel om de exacte tijdzone van uw systeem te kennen. Door uw huidige systeemtijdzone direct in een Excel-cel te identificeren en weer te geven, garandeert u de nauwkeurigheid van tijdsgevoelige berekeningen, rapportages en gegevensvergelijkingen, zeker wanneer bestanden worden gedeeld met gebruikers in verschillende regio’s. Helaas beschikt Excel niet over een ingebouwde functie om systeemtijdzone-informatie rechtstreeks in een cel op te halen.
Haal de huidige tijdzone op en toon deze in een cel met een door de gebruiker gedefinieerde functie
Haal de huidige tijdzone op en toon deze in een cel met een door de gebruiker gedefinieerde functie
Om de huidige tijdzone van uw systeem rechtstreeks in een Excel-cel op te halen en weer te geven, kunt u een door de gebruiker gedefinieerde functie (UDF) in VBA gebruiken. Deze methode biedt een handige oplossing, vooral als u deze informatie regelmatig in uw werkmap nodig hebt. Volg deze stappen:
Opmerking: Deze aanpak werkt het beste als macro’s zijn ingeschakeld in uw Excel-omgeving en u VBA-code mag uitvoeren. De functie leest de regionale instellingen rechtstreeks van het Windows-systeem dat op uw computer is geconfigureerd.
1. Druk tegelijkertijd op de toetsen Alt+F11. Hiermee opent u het venster van de Microsoft Visual Basic for Applications (VBA)-editor.
2. Zoek in de VBA-editor het projectvenster aan de linkerkant en klik op Invoegen > Module. Hiermee voegt u een nieuwe module toe aan uw werkmap, waarin u aangepaste code kunt invoeren. Kopieer de volgende VBA-code zorgvuldig en plak deze in het lege modulevenster:
VBA-code: Haal de huidige tijdzone op in Excel
Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20180814
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End FunctionZorg ervoor dat u de volledige code hierboven kopieert. Controleer voordat u macro’s of de UDF uitvoert of uw macro-instellingen het uitvoeren van code toestaan. Als u een foutmelding of beveiligingswaarschuwing krijgt, past u uw macro-instellingen aan via Bestand > Opties > Trustcentrum > Instellingen voor Trustcentrum > Macro-instellingen.
3. Nadat u de code hebt geplakt, drukt u op Alt+Q om de VBA-editor te sluiten en terug te keren naar Excel.
4. Selecteer een willekeurige cel waarin u de tijdzone wilt weergeven, voer de volgende formule in:=GetTimeZoneAtPresent() en druk vervolgens op Enter. De huidige tijdzone van uw systeem verschijnt direct in de geselecteerde cel.
Deze methode is bijzonder effectief voor geautomatiseerde rapportagesjablonen of dashboards die worden gedeeld met collega’s op verschillende geografische locaties, waar duidelijkheid over de tijdzone essentieel is. Houd er echter rekening mee dat UDF’s alleen werken wanneer de werkmap wordt opgeslagen als een macro-inschakelbaar bestand (.xlsm). Als u het bestand verplaatst of naar iemand stuurt met uitgeschakelde macro’s, wordt het resultaat mogelijk niet bijgewerkt of weergegeven.
Zie de schermafbeelding voor duidelijkheid:
Als het resultaat niet verschijnt of er een foutmelding wordt weergegeven, controleer dan of:
- Uw macro-instellingen staan het uitvoeren van VBA-code toe.
- De code is volledig en ongewijzigd gekopieerd.
- U werkt niet in Excel Online of een beperkte omgeving, aangezien VBA-oplossingen uitsluitend beschikbaar zijn in de desktopversie van Excel.
Om de tijdzone-informatie bij te werken of te vernieuwen, hoeft u alleen maar het werkblad opnieuw te berekenen (druk op)F9) of de formule opnieuw in te voeren als de systeemtijdzone is gewijzigd tijdens uw Excel-sessie.
Tip: Dit resultaat weerspiegelt de instellingen van het besturingssysteem van uw computer. Wanneer u het bestand deelt, ziet elke gebruiker zijn of haar eigen systeemtijdzone door de formule opnieuw te berekenen in de lokale Excel-omgeving.
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.
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