✔ Schriftfarbe eines bestimmten Feldes veraendern

[Visio]

Hallo Leute,

ich habe eine Funktion erstellt, die, je nach Kriterium einen Pfeil
nach oben oder nach unten erstellt.
Jetzt moechte ich aber noch, dass die Funktion die Schriftfarbe
(bzw. die Farbe des Pfeils) veraendern kann.
Der Pfeil wird in der Zelle erstellt, in der die Funktion ausgefuehrt
wird.

Mein aktueller Code sieht folgendermassen aus:

Public Function Arrow(a, b)

If b - a > 0 Then
Arrow = "Ç"
End If

If b - a < 0 Then
Arrow = "È"
End If

If Abs((b - a) / a) < 0.05 Then
Arrow = "Æ"
End If

End Function

Und jetzt haette ich gerne, dass zum Beispiel das Ç rot ist,
das Æ gruen und das È blau.


Wuerde mich freuen, wenn mir jemand helfen koennte, das Problem
zu loesen.

 

[Visio]

PS: Ich rufe die Funktion in Excel 2003 von einer Zelle
aus auf (Beispiel: "=Arrow(A2,B3)")

 

[Shakie]

Ich bin mir nicht sicher, da ich selten Makros programmiere. Aber du müsstest eine Zelle mit einer Variable vom Typ "Range" übergeben können:

Private Sub ChangeColor(ByRef Zelle As Range)
Zelle.Font.Color = vbRed
End Sub

'Aufruf der Funktion, um Farbe der Zelle A1 auf Rot zu setzen:
ChangeColor Me.Range("A1")