Zelle mit Funktion färben - RGB -

Function funktioniert es nicht, rufe ich aus der 

Function ein 

Sub auf, geht's auch nicht, nur wenn ich das 

Sub direkt oder z.b. über worksheet_selection_change aufrufe, gehts.

Function Farbe_anzeigen(was As Long, wo As Range)
' ... as String ' hilft auch nicht
'Farbe_anzeigen = "" hilft auch nicht
Application.Volatile 'hilft auch nicht
wo.Interior.Color = was
'Call farbe2(was, wo) 'hilft auch nicht
End Function





Sub Farbe()
ActiveSheet.[h2].Interior.Color = ActiveSheet.[h2]
End Sub





Sub farbe2(was As Long, wo As Range)
wo.Interior.Color = was
End Sub




gruss andre