Herbers Excel-Forum - das Archiv

Sin- Aufruf in selbsterstellter Funktion

Bild

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

Bild

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
Bild

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

 AB
1410,86928674
2 41
Formeln der Tabelle
B1 : =TAN1(A1)
B2 : =Arc_TAN1(B1)
 
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
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/
Bild

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/

Bild

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
Bild

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/

Bild

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
Bild

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/

 Bild
Excel-Beispiele zum Thema " Sin- Aufruf in selbsterstellter Funktion"
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen Datenmaske beim Aufruf mit Nullen füllen
Makros in Abhängigkeit vom Zellennamen aufrufen Makroaufruf abhängig vom Zellwert
Excel für die Zeit eines Dialogaufrufes ausblenden Makros zeitgesteuert aufrufen
AddIn aus Makro aufrufen Name der aufrufenden Schaltfläche abfragen
Code aufrufen und löschen Als Zellkontextmenü Listbox aufrufen