Excel Formel in VBA umschreiben

Hallo Leute

Hier eine wohl banale Frage, aber ich hänge fest.

Bin am gestalten eines Userforms und möchte eine Excelformel in VBA umschreiben.

Hier Dir Formel:
„A1“ =IF ( $D$4 - $C$4

Hi,

Textbox1.Value = IIf(B

Textbox1.Value=Max(0.5,B)+8+C

Hallo Markus,

würd mich erstaunen wenn das klappt :smile:

Textbox1.Value=Application.Max(0.5,B)+8+C

Gruß
Reinhard

1 „Gefällt mir“

Textbox1.Value = If B

Hallo Reinhard,

dankeschön. Und dann schreib ich noch an anderer Stelle über Qualifizieren. Scheint, als ob ich mich selbst qualifizieren müßte…

Vorschläge? Human.Man…?

Gruß

Markus

Wie schon erwähnt… habe keine Ahnung das Umzusetzen, habe auch nichts in schlauen Büchern gefunden.

JA, Kenntnisse… darum bin ich ja hier :smile:

Guten Tag,

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Vielen Dank, werde eure Lsg. Ansätze testen.

Gruss
Flexo

Meinst Du das wegen den GROSS geschrieben Variablen habe ?

Meinst Du das wegen den GROSS geschrieben Variablen habe ?

Hallo Flexo,

nein.
Lösungen hast du ja schon von Markus.
Ich meinte deinen Einsatz der If-Abfrage.

If B 

Vielleicht hätte ich doch lieber schweigen sollen. Auf jeden Fall war/ist es einzig hilfreich gedacht. Keinesfalls etwas von oben herab oder so.
Ich hoffe jetzt it alles vom Tisch. Wenn nicht mail mich an.

Gruß
Reinhard

Hallo Reinhard

Das mit Application.Max funktioniert nicht, der Befehl wird auch gar nicht im ObejctExplorer gefunden.

Möchte einfach nur eine Wenn Formel in VBA wechseln und die Ausgabe
in einer Textbox haben.

Gruss

Hallo Flexo,

Das mit Application.Max funktioniert nicht, der Befehl wird
auch gar nicht im ObejctExplorer gefunden.

*Schulterzuck*, äh meinst du den Objektkatalog, also F2?

Möchte einfach nur eine Wenn Formel in VBA wechseln und die
Ausgabe in einer Textbox haben.

Okay, hier ist die Textbox in einer UF. Aber ist egal ob sie in der Tabelle steht oder in einer UF. Der Code klappt bei XL2000.

Private Sub UserForm_Initialize()
Dim B, C
C = 10
B = 0.4
TextBox1.Value = Application.Max(0.5, B) + 8 + C
End Sub

Ich weiß, bei Intellisense erscheint nach/bei „Application.“ kein „Max“, das kommt wenn man „Application.Worksheetfunction.“ eingibt.

Aber irgendwo las ich daß es besser sei „Worksheetfunction“ wegzulassen. Sorry, Begründung habe ich vergessen. Aber seitdem lasse ich es weg und siehe da, es klappt immer bisher.

Gruß
Reinhard

Gruß
Reinhard

1 „Gefällt mir“

Hallo Reinhard

ja den meine ich, in der Schule haben wir die englische Version und das heisst er „Object Browser“.

Genau, es kommt nur MaxChange !

Alles klar ich Danke Dir für die genaue Erklärung, mal schauen ob ich mir das merken kann.

Gruss
Flexo