Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige