rngAll.select --> Spalten-Teilbereich möglich?
Gregor
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