OpenOffice.info

sub TextFormat_entfernen
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 0
dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = ThisComponent.CurrentSelection.string
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
end sub

Hallo Fincher

Ein relativ einfacher Workaround wäre, die Gleichung mittels:
=VERKETTEN("=";A1;B1;C1)
in die Zelle zu schreiben und dann direkt (aus der selektierten Zelle) folgendes Makro zu starten:
[code]sub TextFormat_entfernen
rem define variables
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 0
dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = ThisComponent.CurrentSelection.string
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
end sub[/code]

Daneben gibts auch eine 'Auswertungs-funktion' - der zugehörige Makrocode ist aber recht umfangreich und läuft nicht in allen Fällen [url]http://www.ooo-portal.de/index.php?module=pnForum&func=viewtopic&topic=3004&highlight=Auswertung[/url]

Gruß Karo

Alles klar, hab's fast vermutet ...

Jedenfalls vielen Dank für die Antwort!

Hey fincher,


[quote]Als Notlösung würde mir selbst lediglich einfallen, für jeden möglichen Operator eine eigene Bedingung zu implementieren.
[/quote]
Nicht Notlösung - was anders wird dir gar nicht übrig bleiben. Ein Textzeichen kannst du meines Wissens nach nicht mehr in eine Operator verwandeln - bleibt also nur die Fallunterscheidung.
Selbst wenn du eine benutzerdefinierte Funktion in Basic schreibst - auch da bleibt dir nur die Fallunterscheidung.

Gruss
Thomas

   |  A  | B | C |              D                 |
---+-----+---+---+--------------------------------+---
 1 | 500 | / | 2 | =WERT(VERKETTEN("=";A1;B1;C1)) |

Hallo zusammen!

Konnte leider weder in der Calc-Hilfe, in der OOo-Wiki, noch hier im Forum Infos zu meinem Problem finden - ergo muss ich euch belästigen! ;)

Kurz gesagt, möchte ich einen [b]Text als Formel auswerten[/b] lassen. Sprich ich habe z.B. drei adjazente Zellen, deren inhalt ich verkette und dann gerne wie eine Formel behandeln lassen würde. Ich hätte mir das ganze ungefähr so vorgestellt:
[code]
| A | B | C | D |
---+-----+---+---+--------------------------------+---
1 | 500 | / | 2 | =WERT(VERKETTEN("=";A1;B1;C1)) |[/code]
Funktioniert aber natürlich nicht, da die Funktion [b]WERT[/b] nur Zahlen auswertet.

Als Notlösung würde mir selbst lediglich einfallen, für [b]jeden möglichen Operator[/b] eine [b]eigene Bedingung[/b] zu implementieren.

Hat vielleicht jemand eine bessere Lösung für mich parat?

Vielen Dank schon mal!
fincher