Farbnummer auslesen
17.10.2014 16:31:39
Peter
Guten Tag
Ich möchte mit einer selbstgebastelten Funktion die Schriftfarbe einer Zelle auslesen (Bei Erfolg möchte ich auch gerne die Füllfarbe auslesen).
Folgender Versuch hat nicht geklappt:
Public Function Farbnummer_Schrift(rng As Range)
Dim strTab As String, lngZe As Long, lngSpa As Long
strTab = rng.Parent.Name
lngZe = rng(1, 1).Row
lngSpa = rng(1, 1).Column
Farbnummer_Schrift = Worksheets(strTab).Cells(lngZe, lngSpa).Interior.ColorIndex
End Function
Wer kann mir weiterhelfen?Gruss, Peter