Theoretisch dachte ich mir das so mit der Markierung, aber irgendwie klappt das nich...
Sub quali_xx()
i = 1
While Range("G" & Format(i)).Value "xx"
If InStr(Range("G" & Format(i)).Value, "xx") 0 Then
Rows(Format(i) & ":" & Format(i)).Select
End If
i = i + 1
Wend
End Sub
Danke im Vorraus
:]