Winkelfunktionen (ARCSIN)

Forumthread: Winkelfunktionen (ARCSIN)

24.07.2002 23:03:41

Reinhard

Hallo Excel-Experten,

wenn ich zur Berechnung von Winkelfunktionen z.B. den Wert 0,5 habe, kann ich mit der Tabellenformel ARCSIN() daraus den Winkelwert (30 Grad) erhalten. Gibt es einen solchen Befehl auch für VBA? Wenn ja, wie lautet er? ARCSIN wird dort nicht akzeptiert.

Reinhard

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Winkelfunktionen (ARCSIN)

24.07.2002 23:25:08

PeterW
Re: Winkelfunktionen (ARCSIN)

25.07.2002 23:00:41

Klaus-Dieter

Re: Winkelfunktionen (ARCSIN)

24.07.2002 23:25:08

PeterW

Hallo Reinhard,

bin mir nicht sicher ob das hilft aber in der VB-Referenz findet man:

Die folgende Liste enthält die nicht integrierten mathematischen Funktionen, die aus den integrierten mathematischen Funktionen abgeleitet werden können:

Funktion Abgeleitete Äquivalenten
Sekans Sekans(X) = 1 / Cos(X)
Kosekans Kosekans(X) = 1 / Sin(X)
Kotangens Kotangens(X) = 1 / Tan(X)
Arkussinus Arkussinus(X) = Atn(X / Sqr(-X * X + 1))
Arkuskosinus Arkuskosinus(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Arkussekans Arkussekans(X) = Atn(X / Sqr(X * X 1)) + Sgn((X) 1) * (2 * Atn(1))
Arkuskosekans Arkuskosekans(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Arkuskotangens Arkuskotangens(X) = Atn(X) + 2 * Atn(1)
Hyperb. Sinus HSin(X) = (Exp(X) Exp(-X)) / 2
Hyperb. Kosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperb. Tangens HTan(X) = (Exp(X) Exp(-X)) / (Exp(X) + Exp(-X))
Hyperb. Sekans HSekans(X) = 2 / (Exp(X) + Exp(-X))
Hyperb. Kosekans HKosekans(X) = 2 / (Exp(X) Exp(-X))
Hyperb. Kotangens HKotangens(X) = (Exp(X) + Exp(-X)) / (Exp(X) Exp(-X))
Hyperb. Arkussinus HArkussinus(X) = Log(X + Sqr(X * X + 1))
Hyperb. Arkuskosinus HArkuskosinus(X) = Log(X + Sqr(X * X - 1))
Hyperb. Arkustangens HArkustangens(X) = Log((1 + X) / (1 X)) / 2
Hyperb. Arkussekans HArkussekans(X) = Log((Sqr(-X * X + 1) + 1) / X)
Hyperb. Arkuskosekans HArkuskosekans(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Hyperb. Arkuskotangens HArkuskotangens(X) = Log((X + 1) / (X 1)) / 2
Logarithmus zur Basis N LogN(X) = Log(X) / Log(N)

Gruß
Peter

Re: Winkelfunktionen (ARCSIN)

25.07.2002 23:00:41

Klaus-Dieter

Hallo Reinhard,

versuche es mal mit diesem Makro:

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA-Seite

Infobox / Tutorial

Winkelfunktionen in Excel: ARCSIN und VBA

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Winkel für den ARCSIN-Wert in Excel zu berechnen, kannst du die ARCSIN-Funktion verwenden. Hier sind die Schritte:

Öffne Excel und wähle eine Zelle aus, in der das Ergebnis angezeigt werden soll.
Gib die Formel ein:
```
=ARCSIN(0,5)
```
Drücke die Eingabetaste. Das Ergebnis (30 Grad) wird in der Zelle angezeigt.

Für die Verwendung in VBA kannst du die ARCSIN-Funktion nicht direkt aufrufen. Stattdessen kannst du die folgende Formel zur Berechnung verwenden:

Function ARCSIN_VBA(value As Double) As Double
    ARCSIN_VBA = Atn(value / Sqr(-value * value + 1))
End Function

Verwende diese Funktion in deinem VBA-Projekt, um den ARCSIN-Wert zu berechnen.

Häufige Fehler und Lösungen

Fehler: ARCSIN wird in VBA nicht akzeptiert
- Lösung: Verwende die benutzerdefinierte Funktion ARCSIN_VBA, wie oben beschrieben.
Fehler: Ergebnis in Radiant statt Grad
- Lösung: Um das Ergebnis in Grad zu erhalten, multipliziere den Wert mit 180/PI():
```
ARCSIN_VBA = Atn(value / Sqr(-value * value + 1)) * (180 / WorksheetFunction.Pi())
```

Alternative Methoden

Wenn du den ARCSIN-Wert in Excel berechnen möchtest, kannst du auch die folgenden Methoden verwenden:

Benutzung von RADIANS und DEGREES: Du kannst den ARCSIN-Wert in Radiant berechnen und dann in Grad umwandeln:
```
=DEGREES(ARCSIN(0,5))
```
VBA Alternativen: Statt ARCSIN kannst du auch die ATN-Funktion in VBA nutzen, um den Winkel zu berechnen, wie zuvor beschrieben.

Praktische Beispiele

Beispiel 1: ARCSIN für verschiedene Werte
- Um den ARCSIN-Wert für 0,5 zu berechnen:
```
=ARCSIN(0,5)  ' Ergebnis: 30 Grad
```
- Um den ARCSIN-Wert für 1 zu berechnen:
```
=ARCSIN(1)    ' Ergebnis: 90 Grad
```
Beispiel 2: VBA Nutzung
- Füge die Funktion ARCSIN_VBA in dein VBA-Modul ein und benutze sie:
```
Dim angle As Double
angle = ARCSIN_VBA(0.5)  ' Ergebnis in Grad
```

Tipps für Profis

Verwende die Funktion in Kombination mit anderen Winkelfunktionen: Kombiniere ARCSIN mit anderen Funktionen wie ARCCOS oder ARCTAN, um komplexe Winkelberechnungen durchzuführen.
Optimierung in VBA: Du kannst die ARCSIN-Funktion in VBA weiter optimieren, indem du Fehlerbehandlungen und Grenzwerte implementierst, um unerwartete Eingaben zu vermeiden.
Dokumentation: Halte deine benutzerdefinierten VBA-Funktionen gut dokumentiert, damit du sie leicht wiederfinden und nutzen kannst.

FAQ: Häufige Fragen

1. Wie berechne ich ARCSIN in Excel? Verwende die Formel =ARCSIN(x), wobei x der Wert ist, dessen ARCSIN du berechnen möchtest.

2. Kann ich ARCSIN auch in VBA verwenden? Ja, aber nicht direkt. Du musst eine benutzerdefinierte Funktion wie ARCSIN_VBA erstellen, um den gleichen Effekt zu erzielen.

3. Wie kann ich das Ergebnis von ARCSIN in Grad umwandeln? Multipliziere den Radiant-Wert mit 180/PI() oder benutze die DEGREES-Funktion in Excel.

4. Was ist der Unterschied zwischen ARCSIN und ARCSIN in VBA? ARCSIN ist eine integrierte Excel-Funktion, während du in VBA eine benutzerdefinierte Funktion erstellen musst, um das gleiche Ergebnis zu erzielen.

Beliebteste Forumthreads (12 Monate)