Hallo VBA  Profis,

Das Ziel ist es, das Wort "Auto" dann die in Reihe "E" befindlichen Wörter "Mortgage", "Preferred" und "non-Preferred" zu markieren.

Hinweis: Die Keywords "Mortgage", "Preferred" and "non-Preferred" befinden sich immer in den erste vier Zeilen nach dem Wort "Auto". Z.B wenn "Auto" in der Zelle "A12" steht, dann stehen die drei keywords in der Zelle "E12, E13, E14, E15" (wie im Bild zu sehen). Jedoch nicht immer in der selben Reihenfolge. Es kann sein, das nicht zuerst das keyword "Mortgage" auftaucht, sondern zuerst "Preferred". Ich habe schon ein kleinen Anfang gemacht, aber es dynamisch hinzubekommen, ist verdammt tricky und wollte mal Euch fragen, wie ich da am besten vorgehen könnte?

Danke Euch allen

https://i.stack.imgur.com/eBxll.jpg

 Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
 If cell.Value = "Auto" Then
    Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & 
cell.Row).Interior.Color = vbRed
ElseIf cell.Value = "Mutti" Then
    Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & 
cell.Row).Interior.Color = vbRed
End If
Next
End Sub