Zelle färben je nach Zellenwert (VBA)

Dieses Thema Zelle färben je nach Zellenwert (VBA) im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von JonnyHeart, 10. März 2005.

Thema: 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...

  1. 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
     
  2. 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
     
  3. wie funktioniert das ???

    HELP !
     
  4. Hi

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

    Gruß, Michael
     
  5. 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
     
Die Seite wird geladen...

Zelle färben je nach Zellenwert (VBA) - Ähnliche Themen

Forum Datum
automatische Zellenfarben vergeben Microsoft Office Suite 3. Jan. 2007
Excel: Zellenfarben Microsoft Office Suite 19. Juli 2006
Zellen Hintergrund färben Microsoft Office Suite 2. Nov. 2005
Einzelne Zellen in Spalte bedingt Formatieren Microsoft Office Suite 16. Mai 2016
Hintergrundfarbe hinter ausgeblendeten Zellen und Spalten.... Microsoft Office Suite 20. Okt. 2015