Den untenstehenden Code möchte ich so abändern, dass NICHT DIE GANZE ZEILE, sondern nur die Spalten C bis K in jeder Zeile mit "x" in Spalte B markiert werden (Ziel: alle Zeilen, welche das Kriterium erfüllen, sollen alle zusammen markiert werden, und zwar in den Spalten C bis K; habe im Archiv leider nicht's gefunden).
Ist das möglich?
Dim rngAct As Range, rngAll As Range
Dim strRng As String
For Each rngAct In Range("b1:b140").Cells
If rngAct.value = "x" Then
If rngAll Is Nothing Then
Set rngAll = rngAct
Else
Set rngAll = Union(rngAll, rngAct)
End If
End If
Next rngAct
rngAll.entireRow.Select
Merci für deinen Input!
Grusse Gregor