Wie kann man die aktuelle Zeitzone ermitteln und in einer Zelle in Excel anzeigen?
Beim Arbeiten mit Excel-Arbeitsmappen – besonders in kollaborativen oder internationalen Umgebungen – ist es oft entscheidend, die exakte Zeitzone des verwendeten Systems zu kennen. Indem Sie Ihre aktuelle Systemzeitzone direkt in einer Excel-Zelle anzeigen, gewährleisten Sie die Genauigkeit zeitkritischer Berechnungen, Berichte oder Datenvergleiche, insbesondere wenn Dateien über mehrere Zeitzonen hinweg geteilt werden. Leider bietet Excel keine integrierte Funktion, um Systemzeitzoneninformationen direkt innerhalb einer Zelle abzurufen.
Aktuelle Zeitzone abrufen und in einer Zelle mit einer benutzerdefinierten Funktion anzeigen
Aktuelle Zeitzone abrufen und in einer Zelle mit einer benutzerdefinierten Funktion anzeigen
Um die aktuelle Zeitzone Ihres Systems direkt in eine Excel-Zelle einzufügen, nutzen Sie am besten eine benutzerdefinierte Funktion (UDF) in VBA – eine praktische Lösung, besonders wenn Sie diese Information regelmäßig in Ihrer Arbeitsmappe benötigen. So geht’s Schritt für Schritt:
Hinweis: Dieser Ansatz funktioniert am besten, wenn Makros in Ihrer Excel-Umgebung aktiviert sind und Sie VBA-Code ausführen dürfen. Er liest die Regions-Einstellung direkt aus der Windows-Systemkonfiguration Ihres Computers.
1. Drücken Sie gleichzeitig die Tasten Alt+F11. Dadurch öffnet sich das Fenster des Microsoft Visual Basic for Applications (VBA)-Editors.
2. Suchen Sie im VBA-Editor im linken Projektbereich und klicken Sie auf Einfügen > Modul. Dadurch wird Ihrer Arbeitsmappe ein neues Modul hinzugefügt, in das Sie benutzerdefinierten Code eingeben können. Kopieren Sie den folgenden VBA-Code sorgfältig und fügen Sie ihn in das leere Modulfenster ein:
VBA-Code: Aktuelle Zeitzone in Excel abrufen
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 FunctionStellen Sie sicher, dass Sie den gesamten obigen Code kopieren. Bevor Sie Makros oder die UDF ausführen, vergewissern Sie sich, dass Ihre Makroeinstellungen die Ausführung von Code zulassen. Sollten Sie auf einen Fehler oder eine Sicherheitswarnung stoßen, passen Sie Ihre Makroeinstellungen unter Datei > Optionen > Trust Center > Trust Center-Einstellungen > Makroeinstellungen an.
3. Drücken Sie nach dem Einfügen des Codes Alt+Q, um den VBA-Editor zu schließen und zu Excel zurückzukehren.
4. Wählen Sie eine beliebige Zelle aus, in der die Zeitzone angezeigt werden soll, geben Sie die folgende Formel ein:=GetTimeZoneAtPresent(), und drücken Sie anschließend Enter. Die aktuell auf Ihrem System eingestellte Zeitzone erscheint sofort in der ausgewählten Zelle.
Diese Methode eignet sich besonders gut für automatisierte Berichtsvorlagen oder Dashboards, die unter Kollegen an verschiedenen geografischen Standorten geteilt werden – besonders dort, wo Klarheit über die Zeitzone entscheidend ist. Beachten Sie jedoch: UDFs funktionieren nur, wenn die Arbeitsmappe als makrofähige Datei (.xlsm) gespeichert wird. Sollten Sie die Datei versenden oder weitergeben und der Empfänger hat Makros deaktiviert, wird das Ergebnis unter Umständen nicht aktualisiert oder angezeigt.
Siehe Screenshot zur Verdeutlichung:
Falls das Ergebnis nicht erscheint oder ein Fehler angezeigt wird, überprüfen Sie Folgendes:
- Ihre Makroeinstellungen ermöglichen die Ausführung von VBA-Code.
- Der Code wurde vollständig und unverändert kopiert.
- Sie befinden sich weder in Excel Online noch in einer eingeschränkten Umgebung – VBA-Lösungen stehen ausschließlich in der Desktopversion von Excel zur Verfügung.
Um die Zeitzoneninformation zu aktualisieren, berechnen Sie das Arbeitsblatt einfach neu (drücken Sie)F9), oder geben Sie die Formel erneut ein, falls sich die Systemzeitzone während Ihrer Excel-Sitzung geändert hat.
Tipp: Dieses Ergebnis spiegelt die Einstellungen Ihres Computer-Betriebssystems wider. Wenn Sie die Datei freigeben, sieht jeder Benutzer seine eigene Systemzeitzone, sobald die Formel in seiner lokalen Excel-Umgebung neu berechnet wird.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins