Zelle färben je nach Zellenwert (VBA)

Vorgabe ist eine Excel-Tabelle mit Werten!

Beispiel 3 Farben sollen verwendet werden rot/orange/grün

wenn zellenwert zwischen -1 und 0 dann -->>>Zellfarbe rot
wenn zellenwert zwischen 0 und 1 dann -->>>Zellfarbe orange
wenn zellenwert zwischen 1 und 2 dann -->>>Zellfarbe grün

wie könnte ein VBA Code aussehen ????

vielen Dank vorab
JONNY

Hi

Wie wäre es mit bedingter Formatierung. Das geht glaube für bis zu 3 verschiedene Werte. Erst danach braucht man VBA.

Gruß, Michael

wie funktioniert das ???

HELP !

Hi

Oben in Excel in der Menü Leiste Format -> Bedingte Formatierung. Ansonsten mal die Excel Hilfe zu rate ziehen.

Gruß, Michael

Ansonsten:

Private Sub Click
If cint(zelle.Text)>=-1 And cint(zelle.Text)<0 Then
zelle.Bgcolor=vbRed
ElseIf cint(zelle.Text)>=0 And cint(zelle.Text)<1 Then
zelle.Bgcolor=RGB(220,130,60)
ElseIf cint(zelle.Text)>=1 And cint(zelle.Text)<2 Then
zelle.Bgcolor=vbGreen
End If
End Sub

Für zelle musst du jeweils die Adresse der Zelle angeben. Hab die Syntax jetzt leider nicht gleich im Kopf. Irgendwas mit Worksheet..... :-\

Hoffe, konnte dir etwas weiterhelfen!

MfG