Makro Ausgabe Berechnungsergebnis mit Formel
03.11.2007 20:15:00
Stefan
Versuche verzweifelt ein Makro zu erstellen, welches mir das Ergebnis einer Berechnung in das aktuelle Feld schreibt (nur das Ergebnis nicht die Formel). Möchte es aber so machen, dass die Formel relativ einfach anzupassen ist (z.B. als String).
Kriege es aber nur mit der "A1 Schreibweise" hin.
Die Eingaben der Formel sollte aber in der "R1C1 Schreibweise" eingeben werden können.
Besten Dank, bereits im voraus.
Stefan
Nachstehend mein Testmakro
Sub Berechnungsergebnis()
Dim StrFormel As String
' Formel in englischer Ausdrucksweise eintragen
' Eingabeformat wie es sein sollte Beispiel "=SUM(R1C1:R[4]C[-1])"
StrFormel = ("=Sum($A$1:A5)")
ActiveCell.Value = Evaluate(StrFormel)
End Sub