Hilfe gesucht zu Function in einem Formular

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Quarktasche.

    Hilfe gesucht zu Function in einem Formular

    Sehr geehrte Damen und Herren,

    ich Programmiere derzeit an einer umfangreicheren Aufgabe bei der über ein Excel-Tabellenblatt aber auch über ein Formular diverse Rechnungen durchgeführt werden sollen.

    Beim Fomular hänge ich nun derzeit an folgenden Problem.
    Ich rufe im Formular eine Funktion auf die ich auch im Formular programmiert habe. In der Funktion verwende ich Variablen, die ich davor im Programm aufgerufen habe. Diese sind jedoch in der Funktion im Formular komischerweise nicht übergeben. Habe jetzt schon alles versucht aber irgendwie klappts nicht. Hier eventuell Programmschnipsel die das verdeutlichen.

    Programm:

    Visual Basic-Quellcode

    1. ElseIf (ListBox1.Selected(1) = True) And CheckBox2.Value = True Then
    2. 'Variablendeklaration
    3. Dim lauf As Integer
    4. Dim fkt As Double
    5. Dim fktStrich As Double
    6. Dim eps As Double
    7. Dim TKausStart As Double
    8. Dim delta As Double
    10. 'Umformen der Variablen in Typ Double
    11. A = TextBox9.Text
    13. TKein = CDbl(TKein)
    14. TWein = CDbl(TWein)
    15. MK = CDbl(MK)
    16. MW = CDbl(MW)
    17. A = CDbl(A)
    18. Cpw = CDbl(Cpw)
    19. Cpk = CDbl(Cpk)
    20. k = CDbl(k)
    24. TKausStart = TKein + TWein
    25. TKausStart = TKausStart / 2
    26. delta = 0.00001
    27. eps = 0.001
    28. TKaus = TKausStart
    29. 'Berechnung
    30. fkt = fun(TKausStart)
    32. For lauf = 1 To 50
    33. fktStrich = (fun(TKaus + delta) - fun(TKaus)) / delta
    34. TKaus = TKaus - fkt / fktStrich
    35. fkt = fun(TKaus)
    37. 'Ausgabe
    38. If (Abs(fkt) < eps) Then GoTo Ausgabe


    Funktion:

    Visual Basic-Quellcode

    1. Function fun(TKaus)
    4. 'TWaus = ((-1 * MK * Cpk) / (MW * Cpw) * (TKaus - TKein)) + TWein
    5. TWaus = TWein - ((MK * Cpk) * (TKaus - TKein) / (MW * Cpw))
    6. If (TWaus - TKaus) < 0 Then
    8. deltaTlog = ((TWein - TKein) - (TWaus - TKaus)) / (Log((TWein - TKein) / (Abs(TWaus - TKaus))))
    9. Else
    10. deltaTlog = ((TWein - TKein) - (TWaus - TKaus)) / (Log((TWein - TKein) / (TWaus - TKaus)))
    11. 'fun = k * A * deltaTlog - (MK * Cpk * (TKaus - TKein)) * 3.6
    12. End If
    14. fun = k * A * deltaTlog - (MK * Cpk * (TKaus - TKein)) * 0.2778
    16. End Function


    Problem wie oben schon beschrieben, dass er wenn ich das Programm ausführ in der function keine Werte hat für zb MK oder Cpk obwohl sie im Programm aufgerufen werden und Werte reingeschrieben werden.

    Über Hilfe würde ich mich sehr freuen.Vielen Dank

    … in der function keine Werte hat für zb MK oder Cpk …


    Werte in Subs oder Funktionen sind Local.

    Entweder globale Variablen deklarieren, oder die Variablen an die Function übergeben.

    Quellcode

    1. Function fun(TKaus as Double, MK as Double, …) as Double


    Als was sind MK usw. deDIMmt?

    »Option Explicit« am Anfang?

    Hey Eierlein,

    da sieht man den Wald vor lauter Bäumen nicht. Hatte tatsächlich am Anfang vergessen meine Variablen als Public zu definieren daher konnte die Function die Werte nicht übergeben. In meinem Excelprogramm hatte ich das gemacht - aber in meinem Formular einfach vergessen.

    Danke für die Antwort ich war schon total am verzweifeln :D :thumbsup:

Facebook
Telefonspende