Visual Basic Forum

schnauber · Newbie Anmeldedatum: 27.01.2010 Beiträge: 1

Hallo,

ich habe folgendes Problem:

Sobald in Spalte "Y" ein Wert geschrieben wird, soll von Spalte "A" bis Spalte "Z" jede Zelle formatiert werden (z.B. Farbe rot).
Das soll in jeder Zeile geschehen. Ansich kein Problem (siehe Code) aber ich muss die Funktion natürlich immer manuell anstossen. Das ganze soll aber automatisch (im Hintergrund) ablaufen, also so eine Art Bedingte Formatierung. Sobald der Wert in der Zelle gefüllt wird und man zur nächsten Zelle springt, soll die Formatierung erfolgen. Geht das?

Sub project_finished()

Dim cell As Range
i = 3
For Each cell In Range("Y3:Y500")
If Cells(i, 25) <> "" Then
Range(Cells(i, 1), Cells(i, 35)).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightDown
.PatternColorIndex = 43
End With
End If
i = i + 1
Next
End Sub
_________________