Mehrere Zellen mit verschieden Werten einfärben
15.07.2019 21:26:34
Cengiz
vielen Dank an alle die mir vielleicht behilflich sein können.
Ich habe ein sehr profane Frage mit mir einem sehr schweren Problem:
ich habe unter A1 bis A6000 1756 verschiedene Werte , die aber Fortlaufend sind.
Es geht z.b
bei
A1 mit dem Wert 1 los bis A5,
A6 mit dem Wert 2 los bis A7,
A8 mit dem Wert 3 los bis A13,
A14 mit dem Wert 4 los bis A19 usw...
Das geht bis A6000
Mein Problem ist, das mal ein Wert nur 3 x vorkommt, aber mal aber 16 x.
Aber wie gesagt ist immer fortlaufend.
Ich würde gerne das der Wert 1 rot, in den Zellen A1 - A5 (oder eine andere Farbe zugewiesen bekommt)
Ich würde gerne das der Wert 2 grün, in den Zellen A6 - A7 (oder eine andere Farbe zugewiesen bekommt)
Ich würde gerne das der Wert 3 Gelb, in den Zellen A8 - A13 (oder eine andere Farbe zugewiesen bekommt)
usw...
Es würden mir schon 4 verschiedene sich abwechseldene Farben reichen.
Mit der bedingten Formatierung geht es nicht, die ist dafür zu limitiert.
Also habe ich es über VBA versucht hiermit was auch klappt wenn ich eine Zelle einfärben möchte (juhu, ganz alleine geschaft...)
Sub mc1()
If Range("A1").Value = 1 Then
Range("A1").Interior.Color = vbRed
End If
End Sub
Wenn ICh aber nun möchte das er auf einmal alle 6000 zellen abfragt,
Sub mc1()
If Range("A1:A6000").Value = 1 Then
Range("A1").Interior.Color = vbRed
End If
End Sub
dann kriege ich diese Meldung:
Laufzeitfehler 13 Typen unverträglich
Bitte, könnte mir jemand helfen...Vielen Dank!