Herbers Excel-Forum - das Archiv
Sin- Aufruf in selbsterstellter Funktion
- Sin- Aufruf in selbsterstellter Funktion von Werner Hassold vom 04.10.2003 08:29:38
- AW: Sin- Aufruf in selbsterstellter Funktion - von Christoph am 04.10.2003 09:21:19
- AW: Sin- Aufruf in selbsterstellter Funktion - von Hajo_Zi am 04.10.2003 09:28:19
- AW: Sin- Aufruf in selbsterstellter Funktion - von Hajo_Zi am 04.10.2003 09:41:56
- AW: Sin- Aufruf in selbsterstellter Funktion - von Werner Hassold am 04.10.2003 10:59:00
- AW: Sin- Aufruf in selbsterstellter Funktion - von Hajo_Zi am 04.10.2003 11:11:30
- AW: DANKE Hajo - von Werner Hassold am 04.10.2003 12:05:14
- AW: Umkehrfunktion - von Hajo_Zi am 04.10.2003 12:14:36
- AW: Umkehrfunktion - von Hajo_Zi am 04.10.2003 12:14:36
- AW: DANKE Hajo - von Werner Hassold am 04.10.2003 12:05:14
- AW: Sin- Aufruf in selbsterstellter Funktion - von Hajo_Zi am 04.10.2003 11:11:30
- AW: Sin- Aufruf in selbsterstellter Funktion - von Werner Hassold am 04.10.2003 10:59:00
- AW: Sin- Aufruf in selbsterstellter Funktion - von Hajo_Zi am 04.10.2003 09:41:56
- AW: Sin- Aufruf in selbsterstellter Funktion - von Christoph am 04.10.2003 09:21:19
 |
Betrifft: Sin- Aufruf in selbsterstellter Funktion
von: Werner Hassold
Geschrieben am: 04.10.2003 08:29:38
Guten Morgen Leute,
ich möchte die Sin- ArcTan- und Wurzel-Funktion in einer selbsterstellten Funktion aufrufen, leider bekomme ich immer eine Fehlermeldung:
SIN- bzw. ArcTan- bzw Wurzel-Funktion nicht definiert.
Hier mein Quelltext:
Funktion Winkel_aus_Cos(CosX as Single)
Dim AK as Single, GK as Single, Hy as Single
AK = 1
Hy = AK/CosX
GK = Wurzel((Hy*Hy-AK*Ak)
TanX = GK/AK
Winkel_aus_Cos = ArcTan(TanX)*180/Pi
End Funktion
Würde mich freuen wenn mir Jemand helfen kann.
Gruß Werner
 |
Betrifft: AW: Sin- Aufruf in selbsterstellter Funktion
von: Christoph
Geschrieben am: 04.10.2003 09:21:19
Hi Werner,
ich hab das zwar nicht getestet, aber auf den ersten Blick hast du folgende Fehler drin:
"Funktion" statt "Function".
und bei "GK = Wurzel((Hy*Hy-AK*Ak)" ist eine Klammer zuviel.
Gruß
Christph
|
Betrifft: AW: Sin- Aufruf in selbsterstellter Funktion
von: Hajo_Zi
Geschrieben am: 04.10.2003 09:28:19
Hallo Werner
Function Tan1(Wert As Double) As Double
Tan1 = Tan(Wert * Application.Pi / 180)
End Function
Function Arc_Tan1(Wert As Double) As Double
Arc_Tan1 = Atn(Wert) * 180 / Application.Pi
End Function
| Tabelle1 | |||||||||||
| |||||||||||
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
|
Betrifft: AW: Sin- Aufruf in selbsterstellter Funktion
von: Hajo_Zi
Geschrieben am: 04.10.2003 09:41:56
Hallo Werner
die Fragestellung ist mal wieder ein Klasse Beispiel dafür, das der Betreff nichts mit der Frage zu tun hat.
Im Betreff steht sin aber im Code steht tan
Falls Du jemand gefunden hast der ein Problem mit Tan lösen will und der sucht nach sin, schreibe mir mal unbedingt. Denkt doch mal bei dem Betreff auch an das Archiv.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
|
Betrifft: AW: Sin- Aufruf in selbsterstellter Funktion
von: Werner Hassold
Geschrieben am: 04.10.2003 10:59:00
Hi Hajo,
Danke wieder einmal für deine schnelle und gute Hilfe.
Den Schreibfehler im Funk(c)tionsnamen und die fehlende Klammer habe ich in meinen Quelltext natürlich nicht, Excel würde sich sonst ja beschweren.
Warum ich SIN-Aufruf angab obwohl ich Cosinus meinte ist mir ein Rätsel, da war ich mit meinen Gedanken wohl schon bei der nächsten Funktion.
Deine Tan- und Arc_Tan-Funktion lösen mir einen Teil meines Problems, kannst du mir auch noch sagen wie ich die Wurzelfunktion in meiner Funktion aufrufen kann?
Oder kennst du eine Umkehr-Funktion für den Cosinus in Excel?
Danke nochmal
Gruß Werner
|
Betrifft: AW: Sin- Aufruf in selbsterstellter Funktion
von: Hajo_Zi
Geschrieben am: 04.10.2003 11:11:30
Hallo Werner
Sub Test()
Dim DoI As Double
DoI = 64
DoI = DoI ^ (1 / 2)
End Sub
zu ArcCos habe ich nichts in der Hilfe von VBA gefunden auf die schnelle. Such doch mal nach Winkelfunktion.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
|
Betrifft: AW: DANKE Hajo
von: Werner Hassold
Geschrieben am: 04.10.2003 12:05:14
Danke Hajo,
ich versuche es mal mit dienem Beispiel, du hast rech, Zahl^0.5 ergibt ja auch den Wurzelwert.
Ich habe leider keine Umkehrfunktionen für tan, sin und cos in Excel gefunden,
anscheinen gibt es da nichts, in Pascal muste ich mir diese Funktionen auch erst erstellen.
Mich wundert aber warum man die Wurzelfunktion von Excel nicht im Qulltext einsetzen kann.
Na ja, mit deiner Hilfe hat es ja jetzt geklappt.
Nochmals DANKE
Gruß Werner
|
Betrifft: AW: Umkehrfunktion
von: Hajo_Zi
Geschrieben am: 04.10.2003 12:14:36
Hallo Werner
für Tan war sie in meinem ersten Beitrag.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
| |