Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Winkelumwandlung Riesenproblem! DANKE!!! ;-)

Forumthread: Winkelumwandlung Riesenproblem! DANKE!!! ;-)

Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 13:23:12
Christian
Vielen, vielen Dank für die Hilfe!
=WENN(A1&lt0;"-";"") & TEXT(ABS(A1/24);"h° m'")
Doch was besagt diese Formel? Wie funktioniert sie? Das würde mich sehr interessieren. Will ja nicht nur blöd ausschneiden und reinkopieren.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
warum stellst Du die Frage nicht im alten Threat?
14.09.2005 13:33:36
MichaV
AW: warum stellst Du die Frage nicht im alten Threat?
14.09.2005 13:34:51
Christian
Ups, sorry... ;-)
AW: Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 13:36:01
OT
Hi,
mit Rundung &gt=30'' = 1':
=WENN($A2&lt0;"-";"") & TEXT(ABS($A2/24)+WENN(REST($A2*3600;60)&gt=30;30/3600;0);"h° m'")
das Zeitformat hh:mm:ss wird hier für Grad:mm:ss verwendet. Da Zahlenwert*24*60*60 die Sekunden in Zeit ergeben, jedoch Zahlenwert*60*60 Sekunden in Grad, muss durch 24 geteilt werden. Habe gesehen, dass nicht korrekt gerundet wird, daher die Erweiterung. Eigentlich wolltest du ja halbe Minuten aufgerundet wissen.
Gruss
Anzeige
AW: Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 13:40:43
Christian
Thx!!! ;-)
AW: Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 13:48:50
OT
Hi,
ein Problem bleibt noch, es findet ein Überlauf bei >=24° und Gruss
AW: Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 14:41:03
OT
Hi,
vielleicht besser so:
Option Explicit
&ltpre&gt
Function Winkelmaß_Grad_Minuten(Winkelmaß_Grad_Dezimal) As String
Dim Negativ As Boolean
Dim Grad As Double
Dim Minuten As Double
Dim Sekunden As Double

Negativ = Winkelmaß_Grad_Dezimal &lt 0
Winkelmaß_Grad_Dezimal = Abs(Winkelmaß_Grad_Dezimal)

Grad = Fix(Winkelmaß_Grad_Dezimal)
Minuten = Fix((Winkelmaß_Grad_Dezimal - Grad) * 60)
Sekunden = Abs(Winkelmaß_Grad_Dezimal * 3600)

If Sekunden - Grad * 3600 - Minuten * 60 &gt= 30 Then Minuten = Minuten + 1
If Minuten = 60 Then Grad = Grad + 1: Minuten = 0

If Negativ Then
Winkelmaß_Grad_Minuten = "-" & Grad & "° " & Minuten & "´"
Else
Winkelmaß_Grad_Minuten = Grad & "° " & Minuten & "´"
End If
End Function&lt/pre&gt
Gruss
Anzeige
AW: Winkelumwandlung Riesenproblem! DANKE!!! ;-)
14.09.2005 14:44:44
OT
Hi,
vielleicht besser so:
Option Explicit
&ltpre&gt
Function Winkelmaß_Grad_Minuten(Winkelmaß_Grad_Dezimal) As String
Dim Negativ As Boolean
Dim Grad As Double
Dim Minuten As Double
Dim Sekunden As Double

Negativ = Winkelmaß_Grad_Dezimal &lt 0
Winkelmaß_Grad_Dezimal = Abs(Winkelmaß_Grad_Dezimal)

Grad = Fix(Winkelmaß_Grad_Dezimal)
Minuten = Fix((Winkelmaß_Grad_Dezimal - Grad) * 60)
Sekunden = Winkelmaß_Grad_Dezimal * 3600

If Sekunden - Grad * 3600 - Minuten * 60 &gt= 30 Then Minuten = Minuten + 1
If Minuten = 60 Then Grad = Grad + 1: Minuten = 0

If Negativ Then
Winkelmaß_Grad_Minuten = "-" & Grad & "° " & Minuten & "´"
Else
Winkelmaß_Grad_Minuten = Grad & "° " & Minuten & "´"
End If
End Function&lt/pre&gt
Gruss
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige