=WENN aus VBA
28.12.2005 09:28:41
Jürgen
Um die Berechungen auf einem Excelblatt möglichst nachvollziehen zu können, möchte ich über CommandButtons, Optionsfelder und der Gleichen nicht die reinen Rechenwerte eintragen, sondern die dazugehörigen Formeln.
Beispiel:
https://www.herber.de/bbs/user/29553.xls
Ein Feld "Grundwert:" = 100
Durch klicken auf den Commandbutton (bzw. Option1, option2,...) wird in das Feld "Folgewert:" nicht das Ergebnis, sondern die Formel "=WENN(Grundwert<1000;5;Grundwert-250)"~f~ eingetragen.
Leider funktioniert das nicht (Laufzeitfehler 1004) mit der Codezeile:
~f~Worksheets(1).Range("Folgewert") = "=WENN(Grundwert<1000;5;Grundwert-250)"
Kann man es dennoch so hinkriegen, dass die Formel automatisch eingetragen wird ohne das man beispielsweise von Hand das = Zeichen nachträglich einfügen muss?