Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere Zellen mit verschieden Werten einfärben

Mehrere Zellen mit verschieden Werten einfärben
15.07.2019 21:26:34
Cengiz
Guten Abend erstmal,
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!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen mit verschieden Werten einfärben
15.07.2019 22:04:33
Regina
Hallo,
das könnte man so lösen:
Public Sub Einfärben()
Dim lng_zeile As Long
Dim lng_letzte_zeile As Long
Dim lng_merker As Long
Dim wks As Worksheet
Dim lng_wechsel As Long
Dim lng_farbe As Long
Set wks = Worksheets("Tabelle1")
With wks
lng_zeile = 1
lng_letzte_zeile = .Cells(1048576, 1).End(xlUp).Row + 1
lng_merker = .Cells(lng_zeile, 1)
lng_wechsel = lng_zeile
lng_farbe = 1
Do Until lng_zeile > lng_letzte_zeile
If .Cells(lng_zeile, 1)  lng_merker Then
' Einfärben
Select Case lng_farbe
Case 1
.Range("A" & lng_wechsel & ":A" & lng_zeile - 1).Interior.Color = vbRed
Case 2
.Range("A" & lng_wechsel & ":A" & lng_zeile - 1).Interior.Color = vbGreen
Case 3
.Range("A" & lng_wechsel & ":A" & lng_zeile - 1).Interior.Color = vbBlue
Case 4
.Range("A" & lng_wechsel & ":A" & lng_zeile - 1).Interior.Color = vbYellow
End Select
lng_wechsel = lng_zeile
If lng_farbe 
Bei dem "set wks" musst Du den namen Deines Tabellenblattes ggf. anpassen
Anzeige
AW: Mehrere Zellen mit verschieden Werten einfärben
15.07.2019 22:19:55
Cengiz
Wenn du wüsstest wie du mir grade geholfen hast, so unendlich vielen Dank...
AW: Mehrere Zellen mit verschieden Werten einfärben
15.07.2019 22:19:56
Cengiz
Wenn du wüsstest wie du mir grade geholfen hast, so unendlich vielen Dank...

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige