Formel will nicht funktionieren
29.03.2005 11:41:03
login@pixelithe.de
Ich beiße mir schon den ganzen Vormittag an einer Sache die Zähne aus, die mir erfahrungsgemäß hier ganz schnell beantwortet werden kann. Und zwar möchte ich per Doppelklick (in eine beliebige Zelle) eine Inputbox starten in die der Benutzer eine Rechenformel eingibt (nicht funktionierendes Beispiel: "(2,44+1,41+2,44)*3")
Diese Formel soll dann einmal in das doppelt angeklickte Feld im Klartext eingefügt werden und ein zweites Mal, drei Spalten weiter als Formel. Dort soll dann das Ergebnis stehen.
mein Makro funktioniert auch wunderbar, solange ich von der Verwendung von Kommazahlen absehe. Wenn ich also (13+12+15)*3 eingebe funktioniert es einwandfrei. Wenn ich die Kommaformel per Hand eingebe, funktioniert es auch.
Es liegt wohl an einer falschen Variablen (ich dachte, String geht hier?) oder an sonstigen Besonderheiten von Formeln...
Hier ist die Datei:
https://www.herber.de/bbs/user/20320.xls
Und hier der Code:
Sub inputbox()
Dim eingabe As String
eingabe = Application.inputbox("Bitte geben Sie die Formel ein:")
ActiveCell.Value = eingabe
ActiveCell.Offset(0, 3).Value = "=" + eingabe
ActiveCell.Offset(1, 0).Select
End Sub
Ich hoffe, mir kann geholfen werden!
Vielen Dank schonmal fürs Versuchen.
Gruß
Anja
Anzeige