If .Cells(i, 3) like "Grün*" Then
die idee davor wird nicht funktionieren, da ich den Stern übersehen habe.