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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> 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
Re: Registerfarbe mit aktuellen Monat automatisch färben
Hallo,
für Makro Fragen gibt eine eigene Abteilung.
Hier gibt es etwas.
http://www.oooforum.de/viewtopic.php?t=65480#p253803
Gruß Kalk
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
Re: Registerfarbe mit aktuellen Monat automatisch färben
Hallo..
Alles klar. Super! Ganz lieben Dank!
MfG
matze000
Alles klar. Super! Ganz lieben Dank!
MfG
matze000