|
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
|