if-Funktion

29/06/2008 - 19:12 von Edgar | Report spam
Ich möchte, evtl. via If-Funktion prüfen, ob ein bestimmtes Feld eine
bestimmte Füllfarbe aufweist. Ist das möglich? Herzlichen Dank für die Hilfe!
 

Lesen sie die antworten

#1 Eberhard Funke
29/06/2008 - 22:10 | Warnen spam
Am Sun, 29 Jun 2008 10:12:01 -0700 schrieb Edgar:

Ich möchte, evtl. via If-Funktion prüfen, ob ein bestimmtes Feld eine
bestimmte Füllfarbe aufweist. Ist das möglich? Herzlichen Dank für die Hilfe!



Hallo Edgar,

dazu musst Du zunàchst wissen, welche Farbe welchen Farbcode (ColorIndex)
besitzt:

Fàrbe einige Zellen mit den Farben, die bei Dir vorkommen können.

mit der Funktion:

Function Farbe(rng As Range) As String
Farbe = rng.Interior.ColorIndex
End Function

erhàltst Du den ColorIndiex für jede Farbe.
[Die Funktion rufst Du auf z. B. mit =Farbe(A1)]

Damit ànderst Du den folgenden Code (hier für die Farben rot, blau, gelb
und grün als Beispiel) nach Deinen Gegebenheiten ab:

Function Farbe(rng As Range) As String
Farbe = rng.Interior.ColorIndex
Select Case rng.Interior.ColorIndex
Case 3
Farbe = "rot"
Case 5
Farbe = "blau"
Case 6
Farbe = "gelb"
Case 10
Farbe = "grün"
Case Else
Farbe = "Musst Du noch definieren!"
End Select
End Function

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen