VBA Zellen in einer Spalte farblich markieren
24.09.2015 09:28:05
Dietz
ich würde gerne mittels VBA mir gewisse Zellen in verschiedenen Spalten farblich markieren. Geschaut werden soll ab Spalte F bis NV, Zeile 6 ob "Sat" oder "Sun" in der Zelle steht. Wenn ja sollen die Zeilen 8 bis 53 farblich markiert werden (RGB 255/242/209). Ich hab einen ähnlichen Code mit dem ich mir ganze Zeilen abhängig von einem Wert einfärben lasse. Leider reicht meine VBA Kompetenz nicht aus das ganze für meine Bedürfnisse anzupassen.
For b = 3 To Cells(Rows.Count, 13).End(xlUp).Row
Select Case Cells(b, 13)
Case 1 To 15
farbe = 36
Case 16 To 30
farbe = 44
Case 31 To 50
farbe = 46
Case 51 To 1000
farbe = 3
Case Else
farbe = 35
End Select
With Range("B" & b & ":AC" & b)
.Interior.ColorIndex = farbe
End With
Next b
Gruß
Dietz
https://www.herber.de/bbs/user/100349.xlsm