VBA IFerror / IF

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA IFerror / IF

15.07.2016 11:49:23

Michael

AW: VBA IFerror / IF

15.07.2016 12:49:18

Sabrina

AW: VBA IFerror / IF

15.07.2016 12:50:33

Sabrina

AW: VBA IFerror / IF

15.07.2016 13:15:58

Sabrina

AW: VBA IFerror / IF

15.07.2016 13:24:52

Michael

AW: VBA IFerror / IF

15.07.2016 14:16:05

Sabrina

Aha! UDF

15.07.2016 15:02:21

Michael

AW: Aha! UDF

15.07.2016 15:39:45

Sabrina

AW: Aha! UDF

15.07.2016 16:41:32

Sabrina

AW: Aha! UDF

15.07.2016 16:59:39

Michael

Also nochmal

15.07.2016 17:13:43

Michael

Wie machst du das, ...

15.07.2016 19:33:58

Luc:-?

Im Prinzip ja! Gruß owT

15.07.2016 13:19:30

Luc:-?

Function Wert_1() As Double Wert_1 = 1 End Function Sub test() Dim erg As Double, ausFct As Double, zw As Double Const z1 = "K2", z2 = "H2" ausFct = Wert_1 ' so wird die Function nur ' EIN Mal aufgerufen, das spart Zeit 'erst mal die zwei WENN... If ausFct 1 Then erg = 0 Else erg = ausFct End If End If 'bis hierher kann es ja keinen Fehler geben zw = Range(z1) ' also K2 erg = erg + zw ' also K2 If zw = -1 Then ' hier könnte ein Fehler entstehen erg = Range(z2) ' also H2 Else erg = erg / (1 + zw) End If MsgBox erg End Sub

Ich kann vllt mal das ganze zeigen:

Public Function Test(dbl_F1 As double) As Double
NRFV_F1 = (dbl_F1 + 38.03) / (81.26 + 38.03)'berechne Value
End Function

Sub test()
Dim TRSV_F1 As Double, ausFct As Double, zw As Double
Dim epsilon As Double, AvVal As Double
epsilon = 0.00001
AvVal = 0.385257319
ausFct = NRFV_F1 'so wird die Function nur EINMal aufgerufen, das spart Zeit
'erst mal die zwei WENN...
If ausFct TRSV_F1 = 0
Else
If ausFct > 1 Then
TRSV_F1 = 1
Else
TRSV_F1 = ausFct
End If
End If
'bis hierher kann es ja keinen Fehler geben
TRSV_F1 = TRSV_F1 + epsilon ' also K2
If zw = -1 Then ' hier könnte ein Fehler entstehen
TRSV_F1 = AvVal ' also H2
Else
TRSV_F1 = TRSV_F1 / (1 + epsilon)
End If
MsgBox TRSV_F1
End Sub
End Sub
End Function
ich hab jetzt mal K2 und H2 direkt durch werte ersetzt, vllt wirds dann leichter für mich. da epsilon immer gleich ist und das andere immer so ein durchschnittswert, den kann ich aber auch vorher definieren.
es sieht mir so allerdings nicht richitg aus. und ich wieß auch nicht, wie ich so auf das ergebnis kommen soll und wie die function das sub () mit einbezieht und wie ich dann damit weiter rechnen kann..
Aber vielen DAnk schonmal falls du mir nochmal helfen kannst :)

Option Explicit Function TFV(zG2 As Range, zH2 As Range, zK2 As Range) ' TFV steht für TransFormedValue, damit Du es Dir merken kannst Dim erg# '# = as double '=TFV(G2;H2;K2) If IsError(zG2) Or zK2 = -1 Then erg = zH2 Else If zG2 1 Then erg = 1 Else erg = zG2 End If End If erg = erg + zK2 erg = erg / (1 + zK2) End If TFV = erg End Function

Public Function ErrorF( ?, AvgVal as double, epsilon as double) das was ich nicht weiß ist, wie ich an stelle der ? die Funktion abgebe. Wenn ich schriebe ErrofF(Trafo as Double,...) dann denkt das VBA ja sicherlich, es ist eine _ allgemeine Variable aber ich kann auch nicht schrieben Trafo as Function, das ist ei nFehler. Wie übergebe ich also in diese 2 Funktion, die erste Funktion? Ich denke, alles allgemein zu Formulieren und am ende die Funktion jeweils zu füttern, ist _ einfacher und nicht so komplex. Und diese Frage ist sicher leichter zu beantworten als das verwirrende von vorher. Vielen Dank :) Schönen Feierabend schonmal!

Function BinEinZwischenergebnis() As Double BinEinZwischenergebnis = 5 End Function Sub TFV_Aufrufen1() Dim wertZumWeiterrechnen, b# b=2 wertZumWeiterrechnen = TFV(1, b, 3) ' mit direkt reingeschriebenen WERTEN, VARIABLEN ... MsgBox wertZumWeiterrechnen End Sub Sub TFV_Aufrufen2() Dim wertZumWeiterrechnen wertZumWeiterrechnen = TFV(BinEinZwischenergebnis, 2, 3) ' ODER Funktionsaufrufen MsgBox wertZumWeiterrechnen End Sub Function TFV(zG2, zH2, zK2) ' TFV steht für TransFormedValue, damit Du es Dir merken kannst Dim erg# '# = as double '=TFV(G2;H2;K2) If IsError(zG2) Or zK2 = -1 Then erg = zH2 Else If zG2 1 Then erg = 1 Else erg = zG2 End If End If erg = erg + zK2 erg = erg / (1 + zK2) End If TFV = erg End Function

…Sabrina,
wenn du einer XlFkt in einer ZellFml einen Ausdruck aus einer argumentierten XlFkt als Argument übergeben willst? Das ist hier auch nicht anders! Allerdings muss die Variable, der du letztlich das Ergebnis dieser Fkt übergibst, auch so im Kopf deklariert sein, dass das Ergebnis der als Argument/Parameter verwendeten Fkt damit harmoniert. Das kann man aber nur in ZellFmln so machen! Hier musst du statt der ? schon eine Variable (Name!) festlegen und die dann im Verlauf mit dem Ergebnis der intern aufgerufenen Fkt füllen:

Function ErrorF(Bezug, AvgVal As Double, epsilon As Double)
Dim x, a, b, …
xW = …: aW = …: bW = …
Bezug = Trafo(xW, aW, bW)
…
End Function
Function Trafo(x As Double, a As Double, b As Double)
Trafo = ((x - a) / (b - a))
End Function

Im XlBlatt schreibst du Fmln in Zellen und Xl berechnet die. Sind sie geschachtelt, dann von innen nach außen. Würdest du das Obere als Fml schreiben, sähe das so aus:
=ErrorF(Trafo(xBezug1;aBezug2;bBezug3);AvgBezug;EpsBezug)
Das setzte aber voraus, dass beide Fktt unabhängig voneinander sind und nicht (wie oben gezeigt) die 2. in die 1. integriert ist! Wenn aber das Ergebnis beider (unabhängiger) Fktt in einer SubProzedur einer Variablen zugewiesen wdn soll, kann man das genauso machen wie in der Fml:
erg = ErrorF(Trafo(xW, aW, bW), AvgBezug, epsBezug)
Zuerst wird das Ergebnis von Trafo berechnet und das dann hier ErrorF als 1.Argument übergeben.
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA IFerror / IF

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread