Wie wandelt man Dezimalgrade in Grad, Minuten und Sekunden in Excel um?
Gelegentlich haben Sie möglicherweise eine Liste mit Daten, die als Dezimalgrade in einem Arbeitsblatt angezeigt werden, und müssen diese nun in das Format Grad, Minuten und Sekunden umwandeln, wie es in den folgenden Screenshots dargestellt ist. Wie können Sie diese Umwandlung schnell in Excel durchführen?
 |  |  |
Dezimalgrade mithilfe von VBA in Grad, Minuten und Sekunden umwandeln
Grad, Minuten und Sekunden mithilfe von VBA in Dezimalgrade umwandeln
Dezimalgrade mithilfe von VBA in Grad, Minuten und Sekunden umwandeln
Führen Sie die folgenden Schritte aus, um Dezimalgrade mithilfe von VBA-Code in Grad, Minuten und Sekunden umzuwandeln.
1. Halten Sie die ALT-Taste gedrückt und drücken Sie F11, um ein Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den VBA-Code in das Modul ein.
VBA: Dezimalgrad in Grad, Minuten und Sekunden umwandeln
Sub ConvertDegree()
'Update 20130815
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
num1 = Rng.Value
num2 = (num1 - Int(num1)) * 60
num3 = Format((num2 - Int(num2)) * 60, "00")
Rng.Value = Int(num1) & "°" & Int(num2) & "'" & Int(num3) & "''"
Next
End Sub
3. Klicken Sie auf die Ausführen-Schaltfläche oder drücken Sie F5, um den VBA-Code auszuführen.
4. Ein Dialogfeld erscheint auf dem Bildschirm, in dem Sie die umzuwandelnden Zellen auswählen können. Siehe Screenshot:
5. Klicken Sie auf OK, um die Daten in Grad, Minuten und Sekunden umzuwandeln. Siehe Screenshot:
| | |
Tipp: Durch die Verwendung des obigen VBA-Codes gehen Ihre Originaldaten verloren. Erstellen Sie daher am besten vor dem Ausführen des Codes eine Sicherungskopie Ihrer Daten.
Grad, Minuten und Sekunden mithilfe von VBA in Dezimalgrade umwandeln
Gelegentlich möchten Sie Daten im Format Grad/Minuten/Sekunden in Dezimalgrade umwandeln – der folgende VBA-Code erledigt das schnell und unkompliziert für Sie.
1. Halten Sie die ALT-Taste gedrückt und drücken Sie F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen>Modul, und kopieren Sie den VBA-Code in das Modul.
VBA: Grad, Minuten und Sekunden in Dezimalgrad umwandeln
Function ConvertDecimal(pInput As String) As Double
'Updateby20140227
Dim xDeg As Double
Dim xMin As Double
Dim xSec As Double
xDeg = Val(Left(pInput, InStr(1, pInput, "°") - 1))
xMin = Val(Mid(pInput, InStr(1, pInput, "°") + 2, _
InStr(1, pInput, "'") - InStr(1, pInput, _
"°") - 2)) / 60
xSec = Val(Mid(pInput, InStr(1, pInput, "'") + _
2, Len(pInput) - InStr(1, pInput, "'") - 2)) _
/ 3600
ConvertDecimal = xDeg + xMin + xSec
End Function
3. Speichern Sie den Code und schließen Sie dieses Fenster. Wählen Sie eine leere Zelle aus, beispielsweise Zelle A1, und geben Sie folgende Formel ein:=ConvertDecimal("10° 27' 36"„") („10° 27' 36""" steht für den Grad, den Sie in Dezimalgrad umwandeln möchten; passen Sie ihn bei Bedarf an). Drücken Sie anschließend die Enter-Taste. Siehe Screenshots:
 | |  |