Wenn in der Zeile in der Spalte 2 bis 8 der Wert nicht enthalten ist, dann will ich diese Zele ausblenden.
Der find findet zwar den Wert. (Habe ich mich find..activate getestet).
Gefunden wird aber nicht gesetzt, steht immer auf notehing.
Wäre für jede Hilfe dankbar.

ActiveSheet.range(Cells(zeile, 2), Cells(zeile, 8)).Select
Gefunden = Selection.Find(What:=cmname, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False)
Gefunden.Select
If Gefunden Is Nothing Then
Cells(zeile, 1).EntireRow.Hidden = True
End If