Das Archiv des Excel-Forums

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 download Datenmaske beim Aufruf mit Nullen füllen download
Makros in Abhängigkeit vom Zellennamen aufrufen download Makroaufruf abhängig vom Zellwert download
Excel für die Zeit eines Dialogaufrufes ausblenden download Makros zeitgesteuert aufrufen download
AddIn aus Makro aufrufen download Name der aufrufenden Schaltfläche abfragen download
Code aufrufen und löschen download Als Zellkontextmenü Listbox aufrufen download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Grafikprogramm aufrufen und Bild laden download
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download
Wordmakro aus Excel heraus aufrufen download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Aufrufende Menüleistenschaltfläche ermitteln download Numerisch benanntes Arbeitsblatt 1+X aufrufen download
Workbook_Open-Prozedur beim VBA-Aufruf ausschalten download Zu einer aufrufenden UserForm zurückkehren download
Verzeichnisbaum aufrufen und Verzeichnis auswählen download Kontextmenü zur Auswahl von Arbeitsblättern aufrufen download
Bei Wertüberschreitung Makro aufrufen download Tabellenblatt-Hyperlink über UserForm aufrufen download
Blattschutzdialog über VBA aufrufen download Assistent zum Dialog aufrufen und Eingaben auswerten download
Anwendung aufrufen und Makroausführung unterbrechen download Ordnerdialog mit nachfolgendem Dateidialog aufrufen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen download
Datenmaske mit landesspzifischen oder US-Formaten aufrufen download Text in NotePad schreiben, speichern, in Excel aufrufen download
Farbauswahldialog generieren, aufrufen und löschen download UserForm-Aufruf, wenn Formel-Wert Grenze überschreitet download
Menüpunkt hinzufügen und bei Aufruf zeitgesteuert UserForm anzeigen download Von zweiter UserForm die erste aufrufen download
Über VBA den Excel-Sortierdialog aufrufen download UserForm mit SpinButton zur Datenreiheneinstellung aufrufen download
Wert in Abhängigkeit der aufrufenden Schaltfläche eintragen download Passwortabfrage mit ShortCut-Aufruf download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Programmsteuerung für mehrere aufrufende UserForms download
Position der aufrufenden Schaltfläche ermitteln download Bei Doppelklick aufrufende Zelle in UserForm nennen download
Makroaufruf durch Doppelklick in Abhängigkeit von der Zelladresse download Abhängiger Aufruf einer Gültigkeitsliste download
Makroaufruf bei Betätigung des Autofilters download Datenmaske mit einem bestimmten Datensatz aufrufen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download In der UserForm aufrufende Schaltfläche erkennen download
Funktion ANZAHL2 ohne ausgeblendete Spalten download Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen download
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download Alle Prozeduren und Funktionen auflisten download
In Funktionskategorie einordnen download Ausgabe einer benutzerdefinierten Funktion in Matrixformel download
Benutzerdefinierte Funktion durch Code erstellen und löschen download Ermittlung von Entfernungen über benutzerdefinierte Funktion download
Handhabung von Arrays in benutzerdefininierten Funktionen download Arbeitsmappen-Titel über benutzerdefinierte Funktion download
Eigene Funktionskategorien erstellen download Auf- und absteigend sortieren ohne Sortierfunktion download
Handhabung der Datenbankfunktion DBSUMME() download Alle Funktionstasten aus- und einschalten download
Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel download Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download
SUMMEWENN-Funktion über mehrere Tabellenblätter download Integragtion von SVERWEIS in eine Namens-Funktion download
Benutzerdefiniere Funktion einer Schaltfläche zuweisen download Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack download
Alternative zur DEC2BIN-Funktion ohne Begrenzung auf 512 download NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten download
Über benutzerdefinierte Funktion Filterkriterium anzeigen download Im Assistenten anzuzeigende Funktion festlegen download
Variablen auf mehrere Arten in Funktionen integrieren download Benutzerdefinierte Funktion als Matrixformel download
Matrixfunktion über VBA eintragen, auslesen und löschen download Verlauf prognostizieren (über Funktion SCHÄTZER) download
Funktionstaste F11 beim Öffnen ein- und beim Schließen aus download Beispiele zum Einsatz der ZÄHLENWENN-Funktion download
SVERWEIS-Funktion ohne Berücksichtigung leerer Zellen download ComboBox mit der Funktion des Autofilters download
Benutzerdefinierte Funktion zur Ermittlung hinterleger Kategorien download Eine Zusammenstellung von Matrix-Funktionen download
Der Einsatz der SVERWEIS-Funktion in einem Ausgabeblatt download Beispiele zum Einsatz der ZELLE-Funktion download
Beispiele für den Einsatz der Funktion SVERWEIS download