Hallo ich habe diesen Code Ausschnitt...
If Not rngBereich Is Nothing Then
ws.Cells(i, lSpalte + 5).Value = "Preisänderung"
Else
ws.Cells(i, lSpalte + 5).Value = ""
End If
Ich muss in ws.Cells(i, lSpalte + 5).Value = "Preisänderung" zusäzlich eine Farbänderung machen.
Wenn die Zelle gefunden wurden ist, soll die ganze Zeile rote Schrift bekommen.
Danke im vorraus
|