Office: Wert abfragen und dann in Formel als Variable zur Berrechnung verwenden

Hey Leute,

ich möchte gern das der Nutzer meines Makros zwei Werte via Inputbox eintragen muss und das diese Werte dann als Variablen (n;m) in späteren Berrechnungsformeln verwendet werden können.

Vieleicht kann mir jemand helfen...Danke im Vorraus

:)

 

'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)

 

Hey Hajo, danke für die Antwort.

Der Nutzer soll auch Zahlen (Dezimalzahl mit 2 Kommastellen) eingeben können und diese will ich dann als Variablen deklarieren um sie später in eine Formel einzubauen...

 

dann lese den Beitrag, gib keinen Typ an

 

?...Aber ich will schon das der Nutzer nur Zahlen eingeben kann. Ich weiß nur nicht wie ich dann diesen eingegeben Wert im Quelltext als Variable definiere.

Als Beispiel habe ich folgende Formel:

ActiveCell.FormulaR1C1 = "=((RC[-24]+RC[-22]+RC[-20])/-3)-1.44"

die 1.44 soll zur Variable werden die der Nutzer vorher eingegeben hat.

Sorry, ich habe echt noch nicht soviel Ahnung von der ganzen Makro Sache...

 

Ok ich habe es geklärt... ich dachte ich kann statt 1.44 einfach "n" schreiben aber ich muss " & n & " eingeben...

trotzdem Danke

 

der Wert wird doch auf die variable "VarPrints" geschrieben, warum willst dann noch eine andere?

 

Ich hab es jetz so gemacht:

Blechdicke1 = InputBox("Bitte Blechdicke Oberblech eingeben [mm]", "Blechdickeneingabe", 0, 830, 950)
Blechdicke2 = InputBox("Bitte Blechdicke Unterblech eingeben [mm]", "Blechdickeneingabe", 0, 830, 950)


Workbooks(1).Activate
Worksheets(2).Activate
Range("Z4").Select
ActiveCell.FormulaR1C1 = "=((RC[-24]+RC[-22]+RC[-20])/-3) - " & Blechdicke1 & ""...

geht das so? also es funktioniert zumindestens

 

Gut, wenn Du meinst das geht will ich dir nicht wiedersprechen.
Vom Typ 830 habe ich noch nichts gelesen und was die 950 bedeutet ist mir nicht klar und es sind Eingaben von Buchstaben möglich. Aber es geht ja.

 

die Zahlen sind nur die Pointabstände zum Rand (xpos/ypso ein Point = 1/72Zoll(0,35mm)) das ist eigtl. nebensächlich...

aber Du hast recht ich werd doch das mit der Application.Inputbox machen das is besser!

Danke Hajo

Grüße aus Dresden