[gelöst]CALC: Sheet Reiter mit Makro färben

[Asterix-Ac]

Hallo zusammen,

ich suche eine Möglichkeit, einen Tabellen-Reiter per Macro zu färben, wenn eine Zelle leer ist, oder einen Wert hat.
Die Zelle anzusprechen, ist nicht das Problem. aber den Tabellenreiter.
Anscheinend gibt es sowas unter MS Office

Code: Alles auswählen

Sheet.Tab.'RGB(Farbe Irgendwas')

Gibt es in ooo auch so was , oder über com.sun.star?
Über Code-Beispiele würde ich mich freuen.

Asterix

Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

[clag]

Hallo Asterix-Ac,

so daneben lagst du nicht ...

Code: Alles auswählen

Sub RedTab
oCalc = ThisComponent
oSheet = oCalc.Sheets(0)
oSheet.TabColor = RGB(255,0,0)
End Sub

hilft das?

[Asterix-Ac]

Hallo clag,

Danke das hilft mir erstmal weiter.
Doch es funktioniert bei mir nicht. Kann das an meiner LibreOffice Version 4.3.6 liegen? Ist die TabColor-Funktion da noch nicht dinne?
Ich werde mal eine VirtualBox starten und eine 5.0.5 installieren.

Sonst wer Vorschläge?

Asterix

[clag]

Hallo Asterix-Ac,

Doch es funktioniert bei mir nicht

was funktioniert nicht ?

Kann das an meiner LibreOffice Version 4.3.6 liegen?

schau unter Menü > Format > Tabelle nach ob es dort den Punkt Registerfabe gibt !

[Asterix-Ac]

Hallo clag,

Menüpunkt ist da und es funktioniert mit folgender Modifikation :

Code: Alles auswählen

Sub Main()
RedTab()
End Sub

Sub RedTab()
oCalc = ThisComponent
oSheet = oCalc.Sheets(0)
oSheet.TabColor = RGB(255,0,0)
End Sub

Doch ich kann es nicht einfärben, wenn ich Tabellenschutz eingeschaltet habe.
Gibt es dafür eine Ausnahme, wie für einzelne Zellen?
Oder kann ich den Tabellenschutz per Basic kurzzeitig deaktivieren, die TabColor setzen und den Tabellenschutz wieder einschalten?

Asterix

[Asterix-Ac]

So, nun beantworte ich meine eigene Frage :

Code: Alles auswählen

Sub RedTab()
oCalc = ThisComponent
oSheet = oCalc.Sheets(0)
oSheet.unprotect("Kennwort")
oSheet.TabColor = RGB(255,0,0)
oSheet.protect("Kennwort")
End Sub

Jetzt funktioniert alles
Danke für die Hilfe.

Asterix