Excel Zellen einfärben

excel

Von: , 20.07.2009 12:54 Uhr

Liebe/-r wer-weiss-was Experte/-in,
Hallo
Ich habe überhaupt kein Wissen in VBA Programmierung und mein Problem ist wohl nur mit VBA lösbar.
Hier das Problem
Es sollen in einer Spalte bis zu 6000 Werte stehen.
Der Zahlenraum geht von Null bis 99 (100 mögliche Werte)
Jetzt sollen die Zellen eingefärbt werden z.B. 0-9 Grün; 10-19 Rot; 20-29 Schwarz; 30-39 Blau usw.
Ich brauchte eine ziemlich fertige Lösung, weil siehe oben, mit der ich arbeiten kann.
Über jeden Vorschlag wäre ich sehr dankbar.
Danke im voraus.

3 Antworten zu dieser Frage

1. Antwort von nach 21 Minuten 0 hilfreich

   Re: excel

   Hallo "zenorga"
   
   leider ist mir auf die schnelle jetzt nichts besseres eingefallen
   
   "=WENN(A20>89;"Gelb";WENN(A20>79;"Lila";WENN(A20>69;"blassblau";WENN(A20>59;"oragne";WENN(A20>49;"Hellgün";WENN(A20>39;"weinrot";WENN(A20>29;"rosa";WENN(A19>19;"Schwarz";"WEISS"))))))))
   
   ... es geht leider nur mit bis zu 7 Werten :-(
   sorry ... weiter kann ich Dir momentan nicht helfen
   
   Gruß [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
   

2. Antwort von nach 18 Stunden 0 hilfreich

   Re: excel

   Hallo zenogra,
   
   hier meine Lösung, die ausgeführt wird, wenn das Tabellenblatt aktiviert, also ausgewählt wird:
   
   Private Sub Worksheet_Activate()
   
   Range("A1").Select 'Erste Zelle in der die Zahlen stehen
   
   Do
   Select Case Selection
   
   Case 0 To 9 'falls die Zelle einen Wert zwischen 0 und 9 hat
   Selection.Interior.ColorIndex = 4 'grün
   
   Case 10 To 19
   Selection.Interior.ColorIndex = 3 'rot
   
   Case 20 To 29
   Selection.Interior.ColorIndex = 1 'schwarz
   
   Case 30 To 39
   Selection.Interior.ColorIndex = 5 'blau
   End Select
   ActiveCell.Offset(1, 0).Select 'nächtste, untere Zelle aktivieren
   Loop Until IsEmpty(Selection) 'Weitermachen, wenn die Zellen nicht leer ist
   
   End Sub
   
   Code kopieren, rechtsklick auf den Tabellenblattnamen, 'Code anzeigen' auswählen und den Code einfügen.
   
   Viele Grüße
   Rallimatz [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
   

   • Antwort von nach 19 Stunden 0 hilfreich

     Re^2: excel

     Hallo Rallimatz
     Vielen Dank für die schnelle Hilfe.
     Das war genau die Lösung, die ich benötige.
     Super. Danke
     Gruß
     zenogra [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
     

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!