Zellfarbe als Indexzahl ausgeben
26.10.2004 10:45:36
Markus
nachstehende Funktion soll mir die Farbzahl ausgeben. Dies funktioniert zwar soweit auch ganz gut, wenn ich jedoch die Funktion ohne Zellbezug eingebe, soll er mir die Farbzahl für die aktuelle Zelle ausgeben.
z.B. Akutelle Zelle ist A1 und hat die Füllfarbe gelb (Farbzahl 36). Bei eingabe der benutzerdefinierten Funktion: =Farbindex() in Zelle A1 gibt er mir jedoch die Fehlermeldung #Wert! aus.
Wie muß ich die Funktion abändern, damit ich die Farbzahl für die akutelle Zelle erhalte, wenn kein Zellbezug vorgeben wird.Im voraus vielen Dank für Eure Hilfe.
Gruß
Markus
Der code lautet:
Public
Function Farbindex(Zelladresse As Range)
Dim iFarbindex As Integer
iFarbindex = Zelladresse.Interior.ColorIndex
Farbindex = iFarbindex
End Function