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.
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]
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]
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]