Hallo zusammen,
ich habe eine Funktion in VBA erstellt, und würde gerne beim aufrufen der Funktion (Benutzerdefiniert) die Einheiten der Konstanten angezeigt bekommen. Geht das?
Gruß
Steven
ich habe eine Funktion in VBA erstellt, und würde gerne beim
aufrufen der Funktion (Benutzerdefiniert) die Einheiten der
Konstanten angezeigt bekommen. Geht das?
Hi Steven,
wo ist der Code, vielleicht verstehe ich dann was du möchtest.
Welches Vba? Excel, Word,…?
Gruß
Reinhard
Ich weiß leider nicht genau was du meinst, habe meine Gleichungen unten kopiert! Wenn ich jetzt die Benutzerdefinierte Funktion in EXCEL aufrufe, muss ich die angegebenen Konstanten eingeben. Jetzt würde ich gerne die Enheiten der Konstanten hinterlegen, damit der Anwender die richtigen Konstanten einfügt.
Public Function k(mpkt As Double, Alphas As Double, sB As Double, LampdaB As Double, Aa As _
Double, da As Double, di As Double, LampdaK As Double, v As Double, P As _
Double, roh As Double, A As Double, Pr As Double, lstr As Double, LampdaR As Double)
Dim Re As Double
Dim Nu As Double
Dim e As Double
Dim Alphai As Double
Dim L As Double
Dim Ai As Double
L = lstr * P
Re = mpkt * di / (v * A * roh)
e = (1.82 * (Log(Re) / Log(10)) - 1.64) ^ (-2)
Ai = PI * di * L
If Re > 2300 Then
Nu = (e / 8 * (Re - 1000) * Pr) / (1 + 12.7 * _
(e / 8) ^ 0.5 * (Pr ^ (2 / 3) - 1) * (1 + di / lstr) ^ (2 / 3))
ElseIf Re
Moin, Steven,
meine Glaskugel sagt mir, dass Du keine Einheiten suchst, sondern dass Deine Funktion ohne Benutzeroberfläche nutzlos ist. Damit könnte vielleicht der arbeiten, der weiß, was sich hinter lstr, pl, … verbirgt, aber selbst dem ist das nicht zuzumuten.
Mach ein Excel-Arbeitsblatt auf, da kannst Du Texte vorgeben, und lass den Benutzer die Werte eintragen. Wenn alle Werte eingegeben sind, rufst Du die Funktion auf.
Gruß Ralf
Erläuterungen zu den Parametern eigener Funktion
Ich weiß leider nicht genau was du meinst, habe meine
Gleichungen unten kopiert! Wenn ich jetzt die
Benutzerdefinierte Funktion in EXCEL aufrufe, muss ich die
angegebenen Konstanten eingeben. Jetzt würde ich gerne die
Enheiten der Konstanten hinterlegen, damit der Anwender die
richtigen Konstanten einfügt.
Hi Steven,
im Editor, drücke F2 und suche deine Funktion „k“, dann Rechtsklick darauf und du kannst einen Hilfstext eingeben, siehe Bild:
http://www.hostarea.de/server-09/September-0a0cd27c3…
Um für einzelne Parameter Beschreibungen einzugeben ist zwar möglich *glaub* aber ich weiß nicht (mehr?) wie.
Gruß
Reinhard
Ich weiß leider nicht genau was du meinst, habe meine
Gleichungen unten kopiert! Wenn ich jetzt die
Benutzerdefinierte Funktion in EXCEL aufrufe, muss ich die
angegebenen Konstanten eingeben. Jetzt würde ich gerne die
Enheiten der Konstanten hinterlegen, damit der Anwender die
richtigen Konstanten einfügt.
Hi Steven,
so gings auch:
Public Function k(mpkt_Meter As Double, AlphasGra_Grad As Double, sB_Kelvin As Double, LamdaB_Prozent…
Der eben genannte Beschreibungstext scheint nur 255 zeichen lang sein zu dürfen:
Sub Beschreibung()
Dim B As String
B = "gajlklöj göagjoizhkjglöhkglkhlkl hkkhgskhö häghkkäkhöäöfg "
B = B & "gajlklöj göagjoizhkjglöhkglkhlkl hkkhgskhö häghkkäkhöäöfg "
B = B & "gajlklöj göagjoizhkjglöhkglkhlkl hkkhgskhö häghkkäkhöäöfg "
B = B & "gajlklöj göagjoizhkjglöhkglkhlkl hkkhgskhö häghkkäkhöäöfg "
B = B & „gajlklöj göagjoizhkjgl1“
Application.MacroOptions Macro:=„k“, Description:=B
End Sub
Gruß
Reinhard
Danke Reinhard,
war genau das was ich gesucht habe!
Gruß
Steven