Office: Excel Registerfarbe auslesen

Hallo,
ich möchte gerne in einem Tabellenblatt die einzelnen Tabellenblätter als Inhaltsverzeichnis darstellen, was bereits gut funktioniert.

Die Tabellenblätter (Register) haben unterschiedliche Registerfarben. Diese möchte ich, gerne als Hintergrundfarbe in der jeweiligen Zelle auch im Inhaltsverzeichnis hinterlegt haben.

Wie kann ich die Registerfarbe der einzelnen Register auslesen ?

:)

 

Hallo ?,

das geht z. B. so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub createIndex()
Dim objSh As Worksheet
Dim lngRow As Long

lngRow = 2

With Sheets("Index")
.Range("A2:A" & Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)).Clear
For Each objSh In ThisWorkbook.Worksheets
If objSh.Name <> .Name Then
.Hyperlinks.Add Anchor:=.Cells(lngRow, 1), Address:="", _
SubAddress:="'" & objSh.Name & "'!A1", TextToDisplay:=objSh.Name
.Cells(lngRow, 1).Interior.ColorIndex = objSh.Tab.ColorIndex
lngRow = lngRow + 1
End If
Next
.Columns(1).Font.ColorIndex = xlAutomatic
End With
End Sub





« Gruß Sepp »

 

Hi,
Code:

Bis später,
Karin

 

Hallo,
klasse, vielen DANK !!!