per eigener Funktion Zellen Färben
03.07.2007 13:21:26
Atikar
ich würde gerne eine Funktion machen die z.B. einen Bereich übergeben bekommt und eine Farbnummer und dies dann ausführt.
z.B. so und ich schreibe dann im Excel =Farbe("a2",6)
Function Farbe(beginn, color1 As Integer)
Range(beginn).Interior.ColorIndex = color1
End Function
leider funktioniert das nur bei einem Aufruf durch ein Modul, beim Aufruf aus der Tabelle macht er einfach nichts.
Kann mir jemand helfen?
Anzeige