Hallo Zusammen,

ich möchte eine Variable aus einer InputBox in eine Formel übertragen.

Ich denke dieses Problem kam schon öfters vor. Ich habe jedoch nichts hilfreiches gefunden.

Sub Test()

Dim A As Double


A = InputBox("Bitte geben Sie einen Kalkulationfaktor ein!", "Kalkulationsfaktor")


 Range("BE2").Select
ActiveCell.FormulaR1C1 = _
        "=IF(((RC[-4]*A)-INT(RC[-4]*A))<0.5,INT(A*(RC[-4]))+0.49,INT(A*(RC[-4]))+0.99)"
    Range("BE2").Select
    Selection.AutoFill Destination:=Range("BE2:BE51")
    Range("BE2:BE51").Select

End Sub

Vielleicht hat ja jemand eine Idee.