OpenOffice.info

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

So, nun beantworte ich meine eigene Frage :

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

Jetzt funktioniert alles :-)
Danke für die Hilfe.

Asterix

Sub Main()
RedTab()
End Sub

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

Hallo clag,

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

[code]
Sub Main()
RedTab()
End Sub

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

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

Hallo Asterix-Ac,

[quote="Asterix-Ac"]Doch es funktioniert bei mir nicht[/quote]
was funktioniert nicht ?

[quote="Asterix-Ac"] Kann das an meiner LibreOffice Version 4.3.6 liegen?[/quote]
schau unter [color=#008000]Menü > Format > Tabelle [/color] nach ob es dort den Punkt [color=#008000]Registerfabe[/color] gibt !

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

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

Hallo Asterix-Ac,

so daneben lagst du nicht ...

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

hilft das?

Sheet.Tab.'RGB(Farbe Irgendwas')

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]Sheet.Tab.'RGB(Farbe Irgendwas')[/code]
Gibt es in ooo auch so was , oder über com.sun.star?
Über Code-Beispiele würde ich mich freuen.

Asterix

[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst