Formel als text mit zellbezügen auslesen
18.02.2004 23:20:11
cunradus
nachfolgendes problem schon weiter unten mit sepp diskutiert.
ich habe die verschiedensten zellen mit bestimmten werten.
nunmehr will ich eine formel erstellen, nicht zur berechnung, sondern zur berechnungsdarstellung des nachfolgenden ergebnisses. dies mit der jeweiligen darstellung der werte, nicht der zellbezeichnungen.
also z.b.
a1=2
b1=2
c1=3
formel in d1:'=a1+b1+c1'
ziel ist nunmehr die ausgabe: '2 + 2 + 3 ='
sepp hat mir dazu folgenden programm-code gesendet:
Function Rechenweg(Bereich As Range) As String
Dim str As String
If Bereich.Count > 1 Then Bereich = Bereich(1)
Rechenweg = Bereich.Address(0, 0) & " " & Bereich.FormulaLocal
End Function
dieser hat leider nur den nachteil, dass nachfolgende darstellung erfolgt:
d1=a1+b1+c1
was muss an dem code geändert werden, um obigen wunschvorstellungen gerecht zu werden??
(im eigentlichen ging meine frage dahin, ob es eine möglichkeit der verknüpfung des formeleditors mit zellen gibt)
mit dank
cunradus