mehrere Zellen farbig markieren

Question

Hallo

ich brauche eine Idee wie ich Zellen farbig einfärben kann.
Allerdings möchte ich wenn in einer Zelle ein kleiner Wert steht soll nur
eine kleine Anzahl Zellen farbig sein.
Wenn in einer Zelle ein großer Wert steht soll nur eine größere Anzahl
Zellen farbig sein.


Also je größer der Wert dsto mehr Zellen farbig.

Gruß Erwin

Answer 1

Hallo Erwin,

geht das etwas deutlicher?

Wo stehen welche Zahlen und welche Zellen sollen anhand dieser Werte wie eingefärbt werden.

Vielleicht kannst Du das auch anhand einer Beispielmappe darstellen.

Gruß
Rainer

Answer 2

Hallo Rainer

wie kann ich eine Beispieldatei hochladen?

Gruß Erwin

Answer 3

Hallo Erwin,

hier: www.file-upload.net/ kannst du Files hochladen. Du bekommst dann einen Link auf die Datei, den du hier im Forum postest.

Gruß
computerschrat

Answer 4

Hi Erwin,

benutze die bedingte Formatierung. Angenommen deine Werte stehen in Spalte A: markiere die zu formatierenden Zellen ab Spalte B und gib als Bedingung an Formel ist, trage diese Formel ein =SPALTE(A1)<=$A1 und wähle unter Format -> Ausfüllen die entsprechende Füllfarbe aus.

Bis später.
Karin

Answer 5

hi all ^^

ein wenig Spielerei :-)

gruss nighty

a1 = eingabe einer zahl

bei kleiner oder gleich 10 erfolgt in einem 5 mal 5 raster nebenliegend 5 zufällig nicht wiederholende Einfärbungen

bei größer 10 erfolgt in einem 10 mal 10 raster nebenliegend 10 zufällig nicht wiederholende Einfärbungen

Sub ZufallBereich()
Randomize Timer
Dim AnzahlGK As Integer
Dim Dat As Variant
AnzahlGK = Cells(1, 1)
If AnzahlGK <= 10 Then AnzahlGK = 5
If AnzahlGK > 10 Then AnzahlGK = 10
ReDim zuzahl(AnzahlGK * AnzahlGK) As String
ReDim zahl(AnzahlGK * AnzahlGK) As String
Dim endeindex As Integer
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
endeindex = AnzahlGK * AnzahlGK
Set Dat = Range(Cells(2, 2), Cells(2 + AnzahlGK, 2 + AnzahlGK))
For allezahlen = 1 To AnzahlGK * AnzahlGK
zuzahl(allezahlen) = Dat(allezahlen).Address
Next allezahlen
For ziehung = 1 To AnzahlGK
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
Range(zahl(ziehung)).Interior.ColorIndex = 3
Next ziehung
End Sub

Answer 6

Hallo Erwin,

oder falls es auch ausreicht die Anzahl mit Zeichen darzustellen anstatt Zellen einzufärben mit folgender Formel in Zelle B1 wenn in A1 deine Zahl steht:

=WIEDERHOLEN(ZEICHEN(149);A1)

Das Zeichen kannst du natürlich frei wählen, genauso wie die Farbe.

Gruß

M.O.

Answer 7

Hallo zusammen

zu erst einmal Danke für die guten Hinweise.
Leider hat sich mein Thema damit nicht lösen lassen,

Hier eine Beispieldatei.
http://www.file-upload.net/download-8869978/Upload.xlsx.html

Besonders schwierig ist es in Zeile 5 weil ich an den eingefärbten
Zellen gerne noch zwei weiter farbige Stränge anhängen möchte.

Gruß Erwin

Answer 8

Hallo,

schau mal, ob es das hier trifft: Upload bearbeitet.

Gruß

M.O.

Answer 9

Hallo M.O.

sieht auf den ersten Blick perfekt aus.
Allerdings wenn ich in den Spalten C-N Werte lösche und den
Zeitstrahl für die Zeile neu erstelle färbt er immer noch nach den alten
werten ein.
Sprich in den Spalten C-N geänderte Werte wirken sich nicht auf das
einfärben aus.
Leider ändern sich die Werte in den Spalten C-N ständig.

Gruß Erwin

Answer 10

Hallo Erwin,

hier die angepasste Datei: Zeitstrahl neu.

Gruß

M.O.