Wenn in Zelle bestimmter Text, dann...
16.03.2021 11:54:42
Bo
ich möchte, dass in meiner Tabelle die Spalte Q durchgearbeitet wird und wenn dort in einer Zelle das Wort "Lager" steht, dann soll in der korrespondierenden Zelle in Spalte I die Hintergrundfarbe ändern.
Bei der If -Schleife meckert er mit Laufzeitfehler 13 - Typen unverträglich. Den Text in
Klammern mag es nicht...
With ActiveSheet
lngZeileMax = .UsedRange.Rows.Count
For lngZeile = 2 To lngZeileMax
If .Range("Q" & lngZeile) = "Lager" Then
.Range("I" & lngZeile).Interior.ColorIndex = 43
Else
.Range("I" & lngZeile).Interior.ColorIndex = xlColorIndexNone
End If
Next lngZeile
End With
Danke + Gruss
Bo Ris
Anzeige