ist es möglich über eine Function eine Zellformatierung vorzunehmen? Als einfaches Beispiel mal folgende Function, welche die Quadratwurzel zurückgibt. Theoretisch sollte die Hintergrundfarbe der Zelle bei einem Ergebnis kleiner 10 rot gefärbt werden:
Function Quadratwurzel(dblZahl As Double) As Double
Dim rngCell As Range
Set rngCell = Range(Application.Caller.Address)
Quadratwurzel = Sqr(dblZahl)
With rngCell.Interior
If Quadratwurzel
Steht in einer Zelle nun die Formel "=Quadratwurzel(9)" wird zwar der Wert 3 korrekt zurückgegeben, aber leider ändert sich die Formatierung nicht.Viele Grüße
Martin