Seite 1 von 1

Vorlage mit Funktionen öffnen und ohne Funktionen speichern

Verfasst: So 12. Mai 2013, 22:54
von Wolfgang
Und gleich das nächste Problem:

Eine Vorlage enthält Formeln und bedingte Formatierungen. Aus der Vorlage wird ein neues Dokument erstellt, einige Eingaben werden in bestimmten Zellen gemacht, und die Formeln und die bedingten Formatierungen erledigen den Rest.

So weit, so gut.

Aaaaber! Jetzt wird's kompliziert! ;-)

Wird das aus der Vorlage erstellte Dokument dann gespeichert, sollen aus bestimmten (nicht aus allen!) Zellen die Formeln und die Bedingungen für die Formatierungen entfernt werden, nicht aber die Formatierungen selber und die Ergebnisse der Formeln!

Bsp:

In der Vorlage ist eingestellt, daß B7 = A1 + 1 und daß die gesamte Zeile 7 rot eingefärbt wird, wenn B7 > 10.

Beim Speichern als Dokument soll die Zeile 7 rot bleiben, aber die Bedingung für das Rotfärben soll entfernt werden. Ebenso soll das Ergebnis der Addition in B7 stehen bleiben, aber die Formel soll entfernt werden.

Wenn ich so darüber nachdenke, vermute ich, daß das nur mit einem Basic-Makro zu realisieren ist. Oder...???

Re: Vorlage mit Funktionen öffnen und ohne Funktionen speich

Verfasst: Mi 15. Mai 2013, 18:54
von F3K Total
Moin,
Wolfgang hat geschrieben:nur mit einem Basic-Makro zu realisieren ist. Oder...???
ich habe zumindest keine andere Lösung gefunden.
Wenn du dieses Makro anwendest, wird in B7 die Zellvorlage aus der ersten bedingten Formatierung übernommen und die Formel mit dem Formelergebnis überschrieben.

Code: Alles auswählen

Sub S_Clear_Formula_and_conditional_Format
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    ocell = osheet.getcellbyposition(1,6)'B7
    oconditionalformat = ocell.conditionalformat
    sstyle = oconditionalformat(0).StyleName
    ocell.clearcontents(64)'Formatierung löschen
    ocell.CellStyle = sstyle 'Formatvorlage direkt anwenden
    nvalue = ocell.Value
    ocell.formula = nvalue'Formel mit Zellwert überschreiben
End Sub
Gruß R