vielleicht kann mir jemand helfen.
ich würde gern wissen, wie bei dem Befehl
ActiveCell.FormulaR1C1 = "=+Round(2.5566,0)"
die Zahl 2.5566 durch eine Variable ersetzt werden kann.
Vielen Dank im Voraus für die Hilfe.
Viele Grüße
Kristin
Sub variable()
Dim var As String
var = "2.5566"
Range("a1") = "=+Round(" & var & ",0)"
End Sub
Sub Mein_Round()
Dim Var As String
Var = InputBox("Variable eingeben")
x = InStr(1, Var, ",")
Formula = "=round(" & Mid(Var, 1, x - 1) & "." & Mid(Var, x + 1, Len(Var)) & ",0)"
Cells(1, 1).FormulaR1C1 = Formula
End Sub