LibreOffice-Forum

Hallo,
ich steige gerade von excel 2013 auf calc um, soweit klappt der Umzug ganz gut.
Nun mein Problem:
Bisher konnte ich in Excel über eine VBA-Funktion die eingegebene Formel in der Nachbarzelle als Wert anzeigen lassen, zum Beispiel:
Eingabe Zelle A1: 1+1 Ausgabe Zelle B1: 2 (eingegebene Funktion: =RECHNEN(A1))

Dazu habe ich in excel die folgende VBA-Funktion hinterlegt:

Function RECHNEN(Zelle As Range) As Double
Application.Volatile
If Zelle <> "" Then RECHNEN = Evaluate(CStr(Replace(Zelle.Text, ",", ".")))
End Function

Die Excel-Datei kann ich in LibreOffice öffnen und im ods-Format abspeichern, die VBA-Funktion funktioniert dann aber nicht mehr.
Mir ist klar, dass die VBA-Syntax nicht einfach übertragen werden kann. Kennt jemand vielleicht eine Möglichkeit, die o.g. Funktion zu "übersetzen" und damit in calc weiterzuverwenden?

Oder gibt es in calc vielleicht schon eine passende Funktion, die bisher übersehen habe?

Vielen Dank für Eure Hilfe,
Elmar

Hallo Elmar,

hier ein Beispiel inklusive der UDF:

Hallo Elmar,

Bisher konnte ich in Excel über eine VBA-Funktion die eingegebene Formel in der Nachbarzelle als Wert anzeigen lassen

wenn es dir nur darum geht eine Formel als Text anzuzeigen, verstehe ich nicht wirklich, dass du dazu eine Benutzer-Funktion brauchst? In Excel 2013 gibt es doch auch die Funktion Formeltext(), die das erledigt und in LO-Calc heißt die gewünschte Funktion einfach "Formel()".
Wenn du in Zelle A1 deine Formel Z.B. 1+2 eingibst steht in A1 kein Ergebnis sondern einfach Text. Dass man einer Formel das "=" - Zeichen vorausschicken muss, müsstest du doch schon aus deiner Erfahrung mit Excel mitbekommen haben?
Gibst du in A1 ein: =1+2, steht darin das Ergebnis 3 und du kannst die Formel mit der Funktion "Formel(A1)" in einer anderen Zelle anzeigen lassen und sparst dir eine Spalte/Zelle.
Oder habe ich wieder einmal alles falsch verstanden?
Gruß Helmut

Hallo,
ich habe es so verstanden:
Elmar will in eine Formel als Text eingeben und daneben in der Zelle soll das Ergebnis dieser
Formel erscheinen.
Dafür gibt es meines Wissens keine Funktion in Libre Office.
Das kann eventuell nur über VBA gelöst werden (wenn überhaupt).

MfG Günter

Hallo Allerseits,

Thema:
Rechenformel und Ergebnis nebeneinander anzeigen
Diese Frage wird relativ häufig gestellt.
Nach meiner Erfahrung gibt es Listen, in denen z.B. in Spalte A
Formelausdrücke stehen, ohne vorangestelltes Gleichheitszeichen.
Wenn die Ausdrücke erhalten bleiben sollen, kann man entweder
Spalte A kopieren und ggf. per RegEx den Anfang eines jeden
Ausdrucks mit einem Gleichheitszeichen erweitern.
Oder man verwendet eine UDF (benutzerdefinierte Funktion),
welche die in Calc nicht vorhandene Funktion nachbildet.

Eine UDF wird nicht in VBA, sondern in Starbasic
auf Basis der LibreOffice-API geschrieben.

Dies habe ich mit meiner anfänglich verlinkten Datei zeigen wollen.
Hier habe ich gerade festgestellt, dass die UDF einen Fehler ausgibt:
Objektvariable nicht belegt...

Ursache dafür ist der Basic-Interpreter, welcher wohl vor dem kompletten
Laden des Dokuments aktiv wird und diese Codezeile zufrüh interpretiert: ActiveSheet wird nicht erkannt.

Deshalb habe ich in nachfolgendem Beispiel die betreffende Zeile geändert in: Dies funktioniert, hat aber den Nachteil, dass die UDF nur im ersten Tabellenblatt funktioniert.

Man könnte dies auch ändern, in dem man keinen Index zur Referenzierung
angibt, sondern den betreffenden Tabellenblatt-Namen: Hier nun die neue UDF-Datei: