Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel als Funktion

Forumthread: Formel als Funktion

Formel als Funktion
Jochen
Hallo Freunde,
ich habe eine Formel ganz normal in Excel erstellt.
Nun möchet ich diese aber als Function im VBA hinterlegen.
Hier einmal die Formel:
=WENN(UND(D8>0;ODER(E8="";E8=0);F8>0;G8>0);0,1*WURZEL((G8*G8)+(F8*F8) -(2*G8*F8*(COS(BOGENMASS(90-D8/2)))));"")
Hat irgendjemand eine Lösung?
Danke im voraus,
Jochen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel als Funktion
22.08.2011 08:35:43
Herby
Hallo Jochen
es werden alle Parameter als Double-Werte behandelt. Beim 2. Parameter handelt es sich um einen Text ?
hier die Funktion: 
Public Function myRechnung(para1 As Double, para2 As String, para3 As Double, para4 As Double)  _
As Double
Application.Volatile
Dim zw1 As Double
Dim zw2 As Double
Dim zw3 As Double
Dim zw4 As Double
If para1 > 0 And (para2 = 0 Or para2 = "") And para3 > 0 And para4 > 0 Then
zw1 = 90 - para1 / 2
zw2 = Application.Pi / 180 * zw1
zw3 = Cos(zw2)
zw4 = 2 * para3 * para4 * zw3
zw5 = 0.1 * (Sqr((para3 * para3) + (para4 * para4) - zw4))
myRechnung = zw5
Else
myRechnung = 0
End If
End Function
und hier der Aufruf:
=myRechnung(D8;E8; F8;G8)
funktionierts ?
Viele Grüße
Herby
Anzeige
AW: Formel als Funktion
22.08.2011 08:48:03
Jochen
Hallo Herby,
wenn ich den Aufruf eingebe bekomme ich
"#NAME?" als Ergebnis.
Die Funktion habe ich erst in das Tabellenblatt eingefügt und dann noch einmal ein neues Modul geöffnet, aber jedesmal die Fehlermeldung bekommen. ?
Gruß
Jochen
AW: Formel als Funktion
22.08.2011 08:59:11
Jochen
Hallo Herby,
oben hat sich erlegigt!!!
Danke, alles i.O.
Gruß
Jochen
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige