VBA For each for selected cells given criteria

[jakobt]

In a range of selected cells I want to colour each row d:f yellow if the following criteria is met.

The criteria is that the cell in the selected cell should contain the text "jakob".

Also I want to write this code using a for each statement for practice reasons.

 

[My Aswer Is This]

You said:

each row d:f yellow ​

We have no rows d:f

We have rows like 2 3 10
We have columns like A B C

 

[My Aswer Is This]

Maybe this is what you want:
Will search selection for Jakob

Sub My_Selection()
'Modified  7/18/2018  6:52:51 PM  EDT
Dim r As Range
For Each r In Selection
    If r.Value = "jakob" Then r.Interior.Color = vbYellow
Next
End Sub

 

[jakobt]

Thanks.
It worked to a large extent.
What I meant say my selected cells are in column B, if the value in column B is Jakob, the cells in the same row from Column D:F should be coloured yellow.

 

[My Aswer Is This]

Well I assume by selected you mean cells in column B
Try this:
The script looks for jakob in column B and if found columns D:F are colored Yellow
Not sure why your saying selected cells.

Sub My_Selection()
'Modified  7/18/2018  7:20:14 PM  EDT
Dim r As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For Each r In Range("B1:B" & Lastrow)
    If r.Value = "jakob" Then r.Offset(, 2).Resize(, 3).Interior.Color = vbYellow
Next
End Sub

 

[My Aswer Is This]

If you only want selected cells in column B
Try this:

Sub My_Selection()
'Modified  7/18/2018  7:27:46 PM  EDT
Dim r As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For Each r In Selection
    If r.Value = "jakob" Then r.Offset(, 2).Resize(, 3).Interior.Color = vbYellow
Next
End Sub

 

[My Aswer Is This]

If your selection will not always be in Column B
Try this

Sub My_Selection()
'Modified  7/18/2018  7:56:35 PM  EDT
Dim c As Range
Dim r As Long
For Each c In Selection
    If c.Value = "jakob" Then
        r = c.Row
        Cells(r, "D").Resize(, 3).Interior.Color = vbYellow
    End If
    Next
End Sub