hallo!
ich untersuche zwei bereiche aus der name box(z.b. "printarea" und "B1")
falls die beiden bereiche gemeinsame zellen haben, sollen diese auf deren inhalt geprüft werden (z.b. wenn die gemeinsamen zellen leer sind, sollen sie blau gefärbt werden. hier ist der code.
dim zll as CellFormat
If Application.Intersect(Target, Range("WSK")) Is Nothing Then
Else
For Each zll In Application.Intersect(Target, Range("WSK"))
If IsEmpty(zll.Value) Then
zll.Interior.ColorIndex = 40
Else
zll.Interior.ColorIndex = 35
End If
Next
End If
vielen dank!
lars