wir müssen für unsere Planung tausende von Zeilen bearbeiten mit Formeln und Fixen Zahlen. Jedoch sollen alle am Schluss auf volle tausender gerundet werden.
Durch aufnehmen habe ich folgenden Code :
Sub Makro2()
ActiveCell.FormulaR1C1 = "=ROUND(595,-3)"
End Sub
Wie kann ich den Wert 595 nun auf die aktive Zelle umschreiben.
Als Beispiel in meiner Zelle steht =A1 nach der Formel soll drin stehen
=Runden(A1;-3)