Wie erhalte ich die aktuelle Zeitzone und zeige sie in einer Zelle in Excel an?
Wissen Sie, wie Sie herausfinden können, auf welche Zeitzone ein System in Ihrem Computer eingestellt ist? Hier zeige ich Ihnen einen einfachen Weg, um es in Excel zu bekommen.
Aktuelle Zeitzone abrufen und in der Zelle mit benutzerdefinierter Funktion anzeigen
Aktuelle Zeitzone abrufen und in der Zelle mit benutzerdefinierter Funktion anzeigen
Die folgende benutzerdefinierte Funktion hilft Ihnen, die aktuelle Zeitzone des Systems direkt in den benötigten Zellen in Excel anzuzeigen. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
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 Function3. Drücken Sie die Taste Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.
4. Wählen Sie eine Zelle aus, in der die Zeitzone angezeigt werden soll, und geben Sie die folgende Formel ein: =GetTimeZoneAtPresent() und drücke die Enter Taste, um die Zeitzonendetails abzurufen. Siehe Screenshot:
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
