Zellen farblich makieren
11.12.2013 14:15:11
Andreas
habe aus dem Forum diesen Makro
er Makiert bei einen bestimmten Zahlenwert die Zelle in Spalte B der Zahlenwert steht auch in Spalte B.
Wie muss der Makro lauten wenn ich die Zeile von Spalte A bis L makieren möcht.
Für Hilfe bin ich euch sehr dankbar.
Sub farbe()
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("B4:b110")
For Each Zelle In Bereich
Select Case Zelle.Value
Case "1":
Zelle.Interior.ColorIndex = 6
Case "2":
Zelle.Interior.ColorIndex = 4
Case "3":
Zelle.Interior.ColorIndex = 8
End Select
Next Zelle
End Sub
Schöne Grüße Andreas