Ich habe ein kleines Probelm:
ich habe eine Tabelle Spalte A bis Spalte AV.
Beginnend mit der siebten Zeile möchte ich diejenigen Zeilen von A bis AV hellgrün einfärben, die in Spalte D eine "0.1" enthalten.
Vorab schon mal vielen Dank!
Bernhard
Sub Null_Punkt_Eins_gruen()
Dim lngRow As Long
For lngRow = 7 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(lngRow, 4).Text Like "*" & "0.1" & "*" Then _
Cells(lngRow, 1).Resize(1, 48).Interior.Color = vbGreen
Next
End Sub
Gruß Gerd