Hilfe zum VBA CODE
20.01.2004 10:03:20
Werner
ich habe ein kleines Problem. Und zwar habe ich diesen Code eingebunden:
Private Sub Worksheet_calculate()
Dim bereich As Range, zelle As Range
Set bereich = Range("d1:d24")
For Each zelle In bereich
If Not Intersect(zelle, bereich) Is Nothing Then
Select Case zelle.Value
Case "Test"
zelle.Interior.ColorIndex = 6
Case Else
zelle.Interior.ColorIndex = x1None
End Select
End If
Next zelle
Set bereich = Nothing
End Sub
Doch was mir jetzt noch fehlt ist, dass sich die Farbänderung nicht nur auf diese Zelle beschränkt sondern auch auf z.b. die nächsten 2 weiteren Zellen.
Beispiel: d1 wird durch diesen Code gefärbt. Nun soll auch noch e1 und f1 gefärbt werden.
Kann mir da jemand helfen???
MfG Werner