Grad, Minuten, Sekunden Winkel konvertieren zu oder von decimal Winkel in Excel

Der Support für Office 2003 wurde eingestellt

Microsoft stellte am 8. April 2014 den Support für Office 2003 ein. Diese Änderung wirkt sich auf Ihre Softwareupdates und Sicherheitsoptionen aus. Erfahren Sie, was das für Sie bedeutet und wie Sie Ihren Schutz aufrechterhalten können.

Wichtig: Dieser Artikel wurde maschinell übersetzt und wird dann möglicherweise mithilfe des Community Translation Framework (CTF) von Mitgliedern unserer Microsoft Community nachbearbeitet. Weitere Informationen zu CTF finden Sie unter http://support.microsoft.com/gp/machine-translation-corrections/de.

Den englischen Originalartikel können Sie über folgenden Link abrufen: 213449

Zusammenfassung
Winkelmessungen werden häufig in Einheiten von Grad, Minuten und Sekunden ausgedrückt. Ein Grad entspricht 60 Minuten und eine Minute entspricht 60 Sekunden. Um einige mathematische Berechnung zu vereinfachen, sollten Sie Winkelmessungen in Grad und Dezimalbrüche Grad express.

Dieser Artikel enthält eine benutzerdefinierte Beispielfunktion, die Sie verwenden können, um einen im Dezimalformat Gradwert im Textformat und eine Beispielfunktion, die DMS in einen im Dezimalformat gespeicherten Gradwert umwandelt gespeicherten Wert zu konvertieren.
Weitere Informationen
Microsoft bietet Programmierbeispiele zur Veranschaulichung, ohne ausdrücklich oder konkludent, einschließlich, aber nicht beschränkt auf konkludente Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Es wird vorausgesetzt, dass Sie die Programmierungsbeispiele mit erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Microsoft-Supportmitarbeiter können der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch sie nicht zur Verfügung und Programmierungsbeispiele Ihren Erfordernissen ändern.
Wenn Sie über begrenzte Programmierungskenntnisse verfügen, sollten Sie einen Microsoft Certified Partner oder Microsoft Advisory Services kontaktieren. Weitere Informationen finden Sie auf dieser Microsoft-Websites:

Microsoft Certified Partner- https://Partner.Microsoft.com/Global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/gp/advisoryservice

Weitere Informationen zur Kontaktaufnahme mit Microsoft und den verfügbaren Supportoptionen finden Sie auf der folgenden Microsoft-Website:http://support.Microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMS

Konvertieren von Grad in Grad, Minuten, Sekunden

Die folgende Microsoft Visual Basic for Applications-benutzerdefinierte Funktion akzeptiert einen Winkel als Dezimalwert, formatiert und konvertiert ihn in einen Textwert, der in Grad, Minuten und Sekunden angezeigt wird.

Function Convert_Degree(Decimal_Deg) As Variant    With Application        'Set degree to Integer of Argument Passed        Degrees = Int(Decimal_Deg)        'Set minutes to 60 times the number to the right        'of the decimal for the variable Decimal_Deg        Minutes = (Decimal_Deg - Degrees) * 60        'Set seconds to 60 times the number to the right of the        'decimal for the variable Minute        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")        'Returns the Result of degree conversion       '(for example, 10.46 = 10~ 27  ' 36")        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _            & Seconds + Chr(34)    End WithEnd Function				
Um diese Funktion zu verwenden, erstellen Sie eine Konvertierungsformel wie im folgenden Beispiel:
  1. Starten Sie Excel, und drücken Sie ALT + F11, um Visual Basiceditor starten.
  2. Klicken Sie im Menü Einfügen auf Modul.
  3. Geben Sie den Beispielcode für Convert_Degree Customfunction oben in das Modulblatt ein.
  4. Drücken Sie ALT + F11, um zu excel zurückzukehren.
  5. Geben Sie in Zelle A1 10,46.
  6. Geben Sie die folgende Formel in Zelle A2:
    =Convert_Degree(A1)


    Die Formel gibt 10 ° 27'36 "

Konvertieren von Grad, Minuten, Sekunden in Grad

Der folgende Microsoft Visual Basic for Applications-benutzerdefinierte Funktion akzeptiert eine Textzeichenfolge mit Grad, Minuten und Sekunden in genau dem Format der Convert_Degree der Funktion formatiert (z. B. 10° 27' 36") und konvertiert ihn in einen Winkel, der als Dezimalwert formatiert. Dies ist genau das Gegenteil der benutzerdefinierten Funktion Convert_Degree.

Warnung: Diese benutzerdefinierte Funktion fehlschlägt, ist das Degree_Deg-Argument nicht im folgenden Format
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
selbst wenn der Sekundenwert 0 beträgt.
Function Convert_Decimal(Degree_Deg As String) As Double   ' Declare the variables to be double precision floating-point.   Dim degrees As Double   Dim minutes As Double   Dim seconds As Double   ' Set degree to value before "°" of Argument Passed.   degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))   ' Set minutes to the value between the "°" and the "'"   ' of the text string for the variable Degree_Deg divided by   ' 60. The Val function converts the text string to a number.   minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _             "°") - 2)) / 60    ' Set seconds to the number to the right of "'" that is    ' converted to a value and then divided by 3600.    seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _            2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _            / 3600   Convert_Decimal = degrees + minutes + secondsEnd Function				
Um diese Funktion zu verwenden, erstellen Sie eine Konvertierungsformel wie im folgenden Beispiel:
  1. Starten Sie Excel, und drücken Sie ALT + F11, um Visual BasicEditor starten.
  2. Klicken Sie im Menü Einfügen auf Modul.
  3. Geben Sie den Beispielcode für die Convert_Decimal Customfunction oben in das Modulblatt ein.
  4. Drücken Sie ALT + F11, um zu excel zurückzukehren.
  5. Geben Sie in Zelle A1 die folgende Formel ein:
    = Convert_Decimal("10° 27' 36""")
    Hinweis: Sie müssen drei Anführungszeichen eingeben ("" ") an die Endof Arguments dieser Formel zum Ausgleichen von Angebot markieren für die Secondsand der Anführungszeichen für die Zeichenfolge. Ein Zellbezug benötigen keine Aquotation markieren.
  6. Die Formel gibt 10,46 zurück.

Warnung: Dieser Artikel wurde automatisch übersetzt.

Eigenschaften

Artikelnummer: 213449 – Letzte Überarbeitung: 04/04/2016 02:43:00 – Revision: 6.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtde
Feedback