falscher SIN Wert
drKnilch
Ich habe folgendes Problem:
Wenn ich folgenden Code starte, erscheint die Msgbox mit dem Wert "-0,388". (Sinus von 75Grad).
Der Taschenrechner sagt dazu aber "0,966)
Das wird wohl mal wieder was mit dem lästigen RAD- Problem sein, oder?
Hier mal der Code:
Private Sub Makro1()
Dim Arm1Lang, Arm1Kurz, WinkelArm1, Arm1Dia, Arm2_mit_Hebel, HebelArm2 As Double
Dim Ende_Urs, Rechenueber, Rechenhoe, Sockelhoe, Podesthoe, Rechenlaenge, Rechenwinkel As _
Double
Dim Alpa, Beta, Gamma As Double
With Worksheets("Tabelle1")
'Variablenzuweisung:
Rechenueber = (.Range("C4").Value - .Range("C6").Value) 'Rechenüberstand
Rechenhoe = .Range("C4").Value 'Rechenhöhe vertikal
Rechenwinkel = .Range("C5").Value
Podesthoe = .Range("C6").Value
Arm1Kurz = .Range("C11").Value 'Arm1 kurzes Stück
Sockelhoe = .Range("C16").Value 'Sockelhöhe
Ende_Urs = .Range("C17").Value 'RechenEnde/Ursprung, horizontal
If Rechenhoe Ich hoffe, ihr könnt mir weiter helfen, wie ich den Code soweit ändern kann, dass ein richtiges Ergenis rauskommt...
besten Dank