Office: Problem in der Berechnung eines Wertes

Hallo liebes Excelforum,

ich habe ein Problem in der Berechnung eines Wertes in VBA und Excel.
Das Problem ist, das ich das Endergebnis (Geocentric Sun Right Ascension) nicht korrekt berechnen kann, obwohl die Zwischenergebnisse, die ich für die Rechnung brauche, richtig sind. Meine berechneten Zwischenergebnisse habe ich mit den Ergebnissen in einer Tabelle verglichen und diese stimmen überein. Die gleichen Zwischenergebnisse verwende ich auch in der nachfolgenden Rechnung (Geocentric Sun Declination) und bei dieser Rechnung stimmt das Ergebnis wieder mit dem Tabellenwert überein.

Mein Problem hängt mit der Arctan2 (in VBA Atan2) zusammen. Im Folgenden habe ich mal mein VBA Code und meine Excel-Tabelle hinterlegt. Mein Ergebnis was ich Suche ist Alpha mit 202.22741 Grad. Nun hätte es auch sein können das der Tabellen-Wert falsch ist, leider haben die Programmierer im Internet das Programm hinterlegt wo man sich die Werte anzeigen lassen kann; der 202,… Grad Wert scheint zu stimmen.

Nach einem Tag Fehlersuche habe ich keine Ahnung mehr wo der Fehler stecken könnte. Ich habe im Anhang mal ein Bild mit den Formeln und den Tabellenwerten angehängt. Hat einer von Euch eine Idee wo der Fehler steckt?

	B	C	D	E	F
1	λ Degree	204,0085519281		λ Rad	3,5606209334
2	β Degree	0,0001011219		β Rad	0,0000017649
3	ε Degree	23,4404750000		ε Rad	0,4091134670
4
5	Problem (Geocentric Sun Right Ascension)			Gecentric Sun Declination
6	Result Rad	-1,95873775		Result Rad	-0,162565971
7	Result Degree	-112,2274062
8
9	Final Result Deg	247,7725938		Final Result Deg	-9,31434
10	Sollte sin	202,22741

Zelle	Formel
F1	=RADIANS(C1)
F2	=RADIANS(C2)
F3	=RADIANS(C3)
C6	=ATAN2(SIN(F1)*COS(F3)-TAN(F2)*SIN(F3),COS(F1))
F6	=ASIN(SIN(F2)*COS(F3)+COS(F2)*SIN(F3)*SIN(F1))
C7	=DEGREES(C6)
C9	=IF(C7>=0,360*(C7/360-ROUNDDOWN(C7/360,0)),360-360*ABS(C7/360-ROUNDDOWN(C7/360,0)))
F9	=DEGREES(F6)

Code gekürtzt:

Code:

'ASL_Rad = Lamda in Rad
'TOE_Rad = Epsilon in Rad
'GELA_Rad = Beta in Rad

Geocentric_Sun_Right_Ascension_Rad = Application.WorksheetFunction.Atan2((Sin(ASL_Rad) * Cos(TOE_Rad) - Tan(GELA_Rad) * Sin(TOE_Rad)), Cos(ASL_Rad))
Geocentric_Sun_Right_Ascension_Deg = Geocentric_Sun_Right_Ascension_Rad * 180 / Pi

If Geocentric_Sun_Right_Ascension_Deg >= 0 Then
    Geocentric_Sun_Right_Ascension_Deg = 360 * (Geocentric_Sun_Right_Ascension_Deg / 360 - Fix(Geocentric_Sun_Right_Ascension_Deg / 360))
Else
    Geocentric_Sun_Right_Ascension_Deg = 360 - 360 * Abs(Geocentric_Sun_Right_Ascension_Deg / 360 - Fix(Geocentric_Sun_Right_Ascension_Deg / 360))
End If

Schöne Grüße
Tauchmann

P.S.
Warum schreibt das Addin Tabelle --> html die Formeln in Englisch? Mein BS ist in Deutsch / Spracheinstellung ist Deutsch / Excel ist Deutsch

Kann man das ändern?

 

Hallo!

Du hast die Argumente in C6 vertauscht!
=ARCTAN2(COS(F1);SIN(F1)*COS(F3)-TAN(F2)*SIN(F3))

Aus der Excel-Hilfe:

 

Hallo Schatzi,

was soll ich sagen, du hast mir mit deiner Lösung gerade das Wochenende versüßt.
!!!MEHR ALS EIN GROßES DANKESCHÖN!!!! (Brauche mein „Programm“ für ein Vorstellungsgespräch am Mittwoch)

Also, so richtig schlau werde ich nicht aus der VBA Hilfe. In dem Paper ist doch eine Division dargestellt und ich kann doch annehmen das der Zähler „a“ ist und der Nenner „b“ und mit dieser Annahme habe ich auch gerechnet. Das das nun aber genau andersrum ist, hätte ich nie gedacht. Wie bist du darauf gekommen?

Nochmals einen ganz großes Dankeschön von mir )))))))))

Schönes Wochenende
Tauchmann

 

Hallo!

Ich konnte in deiner Berechnung eigentlich keinen Fehler entdecken, daher konnte es eigentlich nur an ARCTAN2 liegen.
Da ich aber diese Funktion ehrlich gesagt noch nie benutzt habe, war der Blick in die Excel-Hilfe nur logisch.
Die Reihenfolge der Funktions-Argumente ist hier tatsächlich irreführend!

 

Ich kenne das Add-In nicht, aber ich könnte mir eine Erklärung vorstellen:

Das Add-In greift die Zellen-Eigenschaft ".Formula" ab, was grundsätzlich die englische Formel zurückliefert. Würde es die Eigenschaft ".FormulaLocal" abgreifen, würde man die Formel in der jeweiligen Landessprache bekommen.

Wenn das Add-In keine Option dafür besitzt, wirst Du da auch nichts umstellen können, solange Du nicht direkt im VBA-Source herumfuhrwerken möchtest / kannst.

Gruß, Michael

 

Hallo!

Doch, eigentlich hat es diese Option...

 

Hallo,

vielen Dank )))))

Tauchmann