deutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
Daran das das Thiscomponent-Objekt noch ohne den richtigen (bzw. jeglichen) Inhalt ist, zu dem Zeitpunkt wo die Funktion innerhalb der Calc-Datei aufgerufen wird. Um mögliche Fehlermeldungen zu verhindern sollte deshalb die automatische Berechnung abgeschaltet sein.Woran liegts?
Könnte man das Thiscomponent-Objekt mit einer IF-Abfrage auf dessen vorhandensein/Inhalt prüfen und dann ansteller der Fehlermeldung lieber einen Leerstring, also "", ausgeben lassen?Stephan hat geschrieben:Ich bin im Moment im Unklaren ob es eine sonstige allgemeine Lösung gibt.
Code: Alles auswählen
REM ***** BASIC *****
Function FARBFUNKTION(Zelle As String)
on error goto ErrHandler
x1 = Thiscomponent.CurrentController.ActiveSheet
FARBFUNKTION = Hex(x1.getCellRangeByName(Zelle).CellBackColor)
exit function
ErrHandler:
FARBFUNKTION = "#N/A"
End Function
Sub Workbook_Open()
Dim Sheet As Object
Dim ReplaceDescriptor As Object
'Print "1"
Sheet = Thiscomponent.CurrentController.ActiveSheet
ReplaceDescriptor = Sheet.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "="
ReplaceDescriptor.ReplaceString = "="
'Print "2"
Sheet.ReplaceAll(ReplaceDescriptor)
'Print "3"
End SubIm Grundsatz so wie es Bernd beschreibt.Könnte man das Thiscomponent-Objekt mit einer IF-Abfrage auf dessen vorhandensein/Inhalt prüfen und dann ansteller der Fehlermeldung lieber einen Leerstring, also "", ausgeben lassen?
denn mir ist irgendwie so als gäbe es für das hier in Debatte stehende Problem eine Lösung (jenseits der Möglichkeit den Fehler abzufangen). Ich glaube irgendwie mich zu erinnern eine Lösung dafür schon einmal irgendwo gelesen (oder gar selbst entworfen) zu haben, ich komme nur momentan absolut nicht drauf. Aber vielleicht täusche ich mich auch nur und meine Erinnerung trügt mich.Ich bin im Moment im Unklaren ob es eine sonstige allgemeine Lösung gibt.
Jap, funktioniert wunderbar. Besten Dank.bst hat geschrieben:mit einem M.E. 'unschönen Trick' scheint das zu funktionieren.
Nur der Vollständigkeit halber: <klugscheinssermodus>man kann auch über Macros verwalten - Zuordnen gehen</klugscheinssermodus>bst hat geschrieben:Weise das Makro Workbook_Open via Extras - Anpassen (!) - Ereignisse dem Ereignis Dokument Öffnen zu. Ggf. musst Du noch auf mehreren Tabellen Suchen & Ersetzen.
Hier mit OOo 3.2.1 geht das nicht, da sind 'bei diesem Weg' nur 'globale Makros' wählbar, nicht die Makros der aktuellen Datei.Nur der Vollständigkeit halber: <klugscheinssermodus>man kann auch über Macros verwalten - Zuordnen gehen</klugscheinssermodus>
Ja.Die Funktion ersetzt alle '=' im aktiven Blatt
Ja, das bewirkt indirekt eine Neuberechnung aller Formeln.Und das bewirkt dadurch das ausführen weiterer Makros (hier dann die Farbfunktion)?
Möglich. F9 hat hier denn nicht funktioniert, Strg+Shift+F9 kannte ich nicht.Ich überlege gerade, wenn das so ist, könnte man "Unbedinge Neuberechnung" [Strg+Shift+F9] nicht auch direkt (per Funktion) aufrufen ohne den Umweg über Ersetzungen zu gehen?
Oh, tatsächlich! Das ist mir gar nicht aufgefallen.bst hat geschrieben:Hier mit OOo 3.2.1 geht das nicht, da sind 'bei diesem Weg' nur 'globale Makros' wählbar, nicht die Makros der aktuellen Datei.
Habe dafür eine einfachere Lösung gefunden. Workbook_Open sieht bei mir nun so aus:bst hat geschrieben:Ja, das bewirkt indirekt eine Neuberechnung aller Formeln.
Code: Alles auswählen
Sub Workbook_Open()
If Thiscomponent.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
Thiscomponent.calculateAll
End If
End Sub