Fehler in der Anwendung

Hallo Manuel,

vielen Dank für deine Nachricht und deine Rückmeldung.

Bitte markiere die Antwort noch als Lösung.

Bei weiteren Fragen stehen wir zur Verfügung.

Hallo,

vielen Dank für deine Nachricht.

Der Fehler steht nicht in Zusammenhang mit Microsoft Office/Office 365.

Welches Anti-Virenprogramm wird verwendet?

Hallo Thomas,

Wir hatten McAfee verwendet, welches uns diese Probleme bereitet hatte. Habe es heruntergeschmissen und durch Avira ersetzt und siehe da, nun läuft es ohne Fehlermeldung.

Dein Tipp war wirklich "GOLD" wert. Ich staune immer wieder, dass es Leute gibt die so etwas aus dem "FF" wissen.

Nochmals herzlichen Dank.

Lieben Gruß

Manuel

Vielen Dank für die Stellungnahme, war hilfreich und für die Zukunft gut zu wissen

Bei meinem programmierbaren Tachenrechner ist das Ergebnis richtig.
Offensichtlich eine andere Programiersprache

Wie gesagt hat das nichts mit der Programmiersprache zu tun, Dein Taschenrechner rechnet auch nur mit Double.

Der Unterschied ist jedoch das er von alleine rundet und Du siehst die Ungenauigkeiten nicht mehr.

Das gleiche kannst Du auch in Exel haben, formatiere die Zelle(n) mit 15 (oder weniger) Nachkommatstellen, dann kommt auch bei

=COS(BOGENMASS(90))

eine 0 raus.

Hier passiert (in der Anzeige) das gleiche wie bei der Formel

=RUNDEN(COS(BOGENMASS(90));15)

Aber dennoch kannst Du, wenn Du die Zahlen selber berechnest, eine höhere Genauigkeit bekommen. Kopiere Dir mal diesen Code in ein normales Modul:

--- schnipp ---

Function SummeDouble(R As Range) As Double

Dim C As Range

For Each C In R

SummeDouble = SummeDouble + C

Next

End Function

Function SummeSingle(R As Range) As Single

Dim C As Range

For Each C In R

SummeSingle = SummeSingle + C

Next

End Function

Function SummeDecimal(R As Range) As Variant

Dim C As Range

For Each C In R

SummeDecimal = SummeDecimal + CDec(C)

Next

End Function

--- schnapp ---

Schreibe die 4 Zahlen

0,05

-0,07

0,02

0

in A1bis A4 und darunter diese Formeln:

A6: =SUMME(A1:A4)

A7: =SummeDouble(A1:A4)

A8: =SummeSingle(A1:A4)

A9: =SummeDecimal(A1:A4)

Wie Du siehst kommt bei SummeDecimal eine 0 raus, was an dem DatenTyp Decimal liegt:

--- schnipp ---

Decimal (Datentyp)

Ein Datentyp, der Zahlen als Potenzen zur Basis 10 enthält. Für Zahlen ohne Nachkommastellen liegt der Wertebereich innerhalb +/-79.228.162.514.264.337.593.543.950.335. Für Zahlen mit 28 Nachkommastellen liegt der Wertebereich innerhalb +/-7,9228162514264337593543950335.
Die kleinste Zahl mit einem Wert ungleich Null, die als Wert vom Typ Decimal dargestellt werden kann, ist 0.0000000000000000000000000001.

--- schnapp ---

Die Frage ist immer ob das wirklich notwendig ist.

Andreas.

Hallo Ute

vielen Dank für Deine Stellungnahme. Excel rechnet mit dem Bogenmaß und den Werten des

Einheitskreises, es ist nur verwunderlich, dass:

bei allen anderen Funtionswerten/Ergebnissen

Cosinus von 0°= 1

Sinus von 0°=0

Sinus von 90°=1

sowie bei allen Arcusfunktionen die Ergebnisse richtig sind, merkwürdig.

Bei einer Weiterberechnung mit dem nicht richtigen Funktionswert kommt ja dann auch

ein falscher Wert heraus.

Wenn man die Eingabeformel ändert: =SIN((90-Winkel)*PI()/180), wird das Ergebnis richtig.

Möglicherweise liegt hier ein Fehler im Programm vor.

Leider habe ich bislang keinen Weg gefunden mich direkt an Microsoft zu wenden.



Viele Grüße



Wilfried