Zellen einfärben mit VBA
10.06.2009 18:19:00
Jordan
eigentlich wollte ich nicht nachfragen und selbst drauf kommen. Nun da ich hier schreibe, ist die Erkenntnis das, dass ich nicht selbst drauf gekommen bin:-(
Nun mein Problem. Ich möchte Zellen die einen bestimmten Wert überschreiten ( hier 20) einfärben.
Ich weis, das ich dies auch über die bedingte Formatierung machen kann! Ich will das aber über VBA machen.
Ich habe in Zellen B2:e14 Zahlen im Wert zwischen 1 und 50. Die Zellen deren Wert über 20 ist sollen markiert werden.
Das ist mein Versuch:
Sub Zellenuebermarkieren()
Dim Bereich As Range
Set Bereich = Tabelle1.Range("b2:e14")
If Bereich.Cells.Value >= 20 Then
Bereich.Cells.Interior.ColorIndex = 2
End If
End Sub
Für Eure Hilfe im voraus besten Dank.
Viele Grüße
Jordan