Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arkussinusfunktion

Arkussinusfunktion
12.07.2005 10:58:43
Patrick
Hallo Leute,
kann mir jemand weiterhelfen?
habe eine Strecke "a" und ein Strecke "b"
jetzt möchte ich den Winkel zwischen den Strecken bestimmen.
normal lautet die Formel:
arcsin(b/a)=Winkel
Wie kann ich das in VBA programmieren?
Gruß Patrick

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arkussinusfunktion
12.07.2005 11:02:44
u_
Hallo,
aus der Hilfe:
Arkussinus(X) = Atn(X / Sqr(-X * X + 1))
Gruß
Geist ist geil!
AW: Arkussinusfunktion
12.07.2005 11:20:38
Patrick
Vielen Dank für die Hilfe
Zeigt mir eine Fehlermeldung an
12.07.2005 11:31:02
Patrick
Habe jetzt in meinen VBA-Code die Formel:
Arkussin(X)=Atn(X/Sqr(-X*X+1)) eingefügt
aber jetzt bringt er mir die Fehlermeldung
"Fehler beim Kompilieren: Konstanter Ausdruck erforderlich"
Im Debug-Mode wird dann das X bei Arkussin(X) markiert.
Weiß jemand eine Lösung?
AW: Zeigt mir eine Fehlermeldung an
12.07.2005 11:42:40
UweD
Hallo
Für x mußt die b/a einsetzen...

Sub dreieck()
Dim a%, b%, Winkel
a = 2
b = 1
Winkel = Atn((b / a) / Sqr(-(b / a) * (b / a) + 1))
MsgBox Winkel * 180 / Application.Pi() & "°"
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
Vielen Dank
12.07.2005 12:05:12
Patrick
Danke, funktioniert super. Hat mir sehr geholfen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige