Ändern der Registerfarbe von aktivem Blatt

[Anna Klain]

Hallo NG'ler,

ich sitze an den Feinheiten meiner Datei und suche eine Möglichkeit die
Registerfarbe des aktiven Blattes zu ändern. Vorgesehen ist aber scheinbar
nur die Änderung der Registerfarbe der "inaktiven" Blätter.
Ich möchte aber gern das gerade aktive Blatt knallrot hervorheben und alle
anderen "farblos" lassen (also in "PC-beige").

Da müßte es doch eine Möglichkeit geben oder ist meine Idee so abwegig?

Anna Klain

[Monika Weber]

Hallo Anna,

Post by Anna Klain
ich sitze an den Feinheiten meiner Datei und suche eine Möglichkeit die
Registerfarbe des aktiven Blattes zu ändern. Vorgesehen ist aber scheinbar
nur die Änderung der Registerfarbe der "inaktiven" Blätter.
Ich möchte aber gern das gerade aktive Blatt knallrot hervorheben und alle
anderen "farblos" lassen (also in "PC-beige").

das lässt sich, nicht ändern. Man erkennt die rote Farbe
bei einem aktiven Blatt nur teilweise.

Die Idee an dieser Einstellung ist, dass man erkennen kann,
welches das aktive Blatt ist. Stell Dir vor, Du hättest
alle Register rot eingefärbt und das Aktive wäre ebenfalls
in rot ... dann könntest Du gar nicht mehr erkennen,
welches (oder welche) Blatt Du gerade am bearbeiten bist.

--
Viele Grüsse
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)

[Melanie Breden]

Hallo Anna,

Post by Anna Klain
ich sitze an den Feinheiten meiner Datei und suche eine Möglichkeit die
Registerfarbe des aktiven Blattes zu ändern. Vorgesehen ist aber scheinbar
nur die Änderung der Registerfarbe der "inaktiven" Blätter.
Ich möchte aber gern das gerade aktive Blatt knallrot hervorheben und alle
anderen "farblos" lassen (also in "PC-beige").

die Registerfarbe des aktiven Blattes wird nur als dünner Strich am unteren Ende der Lasche angezeigt.
Der Register erhält erst dann eine komplette Farbe, wenn er eben nicht aktiv ist.
Das ist by Design so...

Post by Anna Klain
Da müßte es doch eine Möglichkeit geben oder ist meine Idee so abwegig?

Hmm, was hälst du davon, die anderen Blätter von dem aktiven abzuheben,
dann fällt das aktive auch mehr auf ;-)

Speicher folgende Prozedur im Codemodul DieseArbeitsmappe.
Mit den Farb-Indexen kannst du ja ein bischen herumspielen...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim objSheet As Object

For Each objSheet In ThisWorkbook.Sheets
If objSheet.Name = Sh.Name Then
objSheet.Tab.ColorIndex = 3
Else
objSheet.Tab.ColorIndex = 1 ' ohne Farbe-4142
End If
Next objSheet
End Sub