mit VBA! Zellen färben nach Kriterium pro Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Farbe() Dim rngC As Range Application.ScreenUpdating = False For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) If rngC = "B" Then rngC.Interior.Color = vbYellow Else rngC.Interior.Color = xlNone End If If rngC.Offset(, 1) = 10 Then rngC.Offset(, 1).Interior.Color = vbRed Else rngC.Offset(, 1).Interior.Color = xlNone End If If rngC.Offset(, 2) = "Z" Then rngC.Offset(, 2).Interior.Color = vbRed Else rngC.Offset(, 2).Interior.Color = xlNone End If Next End Sub

Hallo Rudi,
vielen Dank für die Antwort. Ich habe den Code in mein Beispiel eingetragen, bekomme aber nun folgendes Problem:
Meine erste Spalte bei der ich färben möchte, beginnt bei "I". Ich habe folgenden Code eingefügt (der Einfachheit halber erstmal nur diese eine Spalte):

Sub Farbe()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Range(Cells(2, 9), Cells(Rows.Count, 1).End(xlUp))
If rngC = "P" Then
rngC.Interior.Color = vbYellow
Else
rngC.Interior.Color = xlNone
End If
Next
End Sub

Die Spalte I wird bei allen "P" jetzt gelb gefärbt, aber alle Zellen von Spalte A bis I werden dabei weiß gemacht (teilweise hatten diese schon andere Farben). Kann man dies verhindern, und wirklich nur die Zellen "anfassen" die den Eintrag P enthalten?
VG Tobias

Sub MachsFarbig() Dim aColumns, aValues, aColors Dim lRow As Long, lCol As Long, lx As Long aColumns = Array(1, 2, 3) 'Spaltennummern aValues = Array("B", 10, "Z") 'Inhalt der jew. Spalte aColors = Array(vbYellow, vbRed, vbRed) 'Hintergrundfarbe der Zelle For lRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row For lCol = 0 To UBound(aColumns) With Cells(lRow, aColumns(lCol)) .Interior.ColorIndex = xlColorIndexNone If .Value = aValues(lCol) Then .Interior.Color = aColors(lCol) End With Next lCol Next lRow End Sub

Hallo Hansueli,
auch dir herzlichen Dank für die Mühe. Wie bei Rudis Code habe ich ein Problem, dass er auch Zellen bearbeitet die einen anderen Inhalt haben:
Sub MachsFarbig()
Dim aColumns, aValues, aColors
Dim lRow As Long, lCol As Long, lx As Long
aColumns = Array(9) 'Spaltennummern
aValues = Array("P") 'Inhalt der jew. Spalte
aColors = Array(vbYellow) 'Hintergrundfarbe der Zelle
For lRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For lCol = 0 To UBound(aColumns)
With Cells(lRow, aColumns(lCol))
.Interior.ColorIndex = xlColorIndexNone
If .Value = aValues(lCol) Then .Interior.Color = aColors(lCol)
End With
Next lCol
Next lRow
Dieser Code ist jetzt in meinem konkreten Beispiel. Der Vorteil zu Rudis Code ist, dass er die Spalten A bis H in Ruhe lässt. Allerdings werden in Spalte I alle Zellen weiß, welche nicht "P" enthalten. Lässt sich das verhindern?
Vielen Dank!,
Tobias

Beliebteste Forumthreads (12 Monate)

mit VBA! Zellen färben nach Kriterium pro Spalte

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit VBA! Zellen färben nach Kriterium pro Spalte

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread