BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Registerfarbe mit aktuellen Monat automatisch färben

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
matze000
Beiträge: 14
Registriert: Mo 30. Dez 2013, 19:20

Registerfarbe mit aktuellen Monat automatisch färben

Beitrag von matze000 » So 10. Sep 2017, 12:15

Hallo zusammen..

ich bräuchte eine kleine Unterstützung. Ich wollte in meiner Tabelle
die Registerfarbe mit dem aktuellen Monat automatisch färben lassen.
eine Makro für die automatische Auswahl habe ich schon.
wie lässt sich das dann erweitern?

Ganz lieben Dank schon mal im voraus.

Sub Main
doc = thisComponent
m = month(date) -1
sheet = doc.Sheets(m)
doc.CurrentController.setActiveSheet(sheet)
End Sub

Kalk
Beiträge: 482
Registriert: Do 6. Feb 2014, 19:45

Re: Registerfarbe mit aktuellen Monat automatisch färben

Beitrag von Kalk » So 10. Sep 2017, 12:32

Hallo,

für Makro Fragen gibt eine eigene Abteilung.
Hier gibt es etwas.
http://www.oooforum.de/viewtopic.php?t=65480#p253803

Code: Alles auswählen

Sub registerfarbe_aendern()
doc = thisComponent
m = month(date) -1
sheet = doc.Sheets(m)
doc.CurrentController.setActiveSheet(sheet)
	x = ThisComponent.Sheets().getByIndex(m)
	x.TabColor = RGB(0,204,0)
End Sub
Gruß Kalk
Gruß Kalk

matze000
Beiträge: 14
Registriert: Mo 30. Dez 2013, 19:20

Re: Registerfarbe mit aktuellen Monat automatisch färben

Beitrag von matze000 » So 10. Sep 2017, 12:50

Hallo..

Alles klar. Super! Ganz lieben Dank! :D

MfG

matze000

Antworten