wenn Suchwert da ist setze Variable auf wahr

Sub Arena()
Dim intZeilenanzahl%
intZeilenanzahl = 0
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim L As Long
Dim ZL As Long
Dim Arena As Boolean
ZL = ActiveSheet.UsedRange.Rows.Count
For L = ZL To 1 Step -1 'Schleife bis zur ersten Zeile
If Cells(L, 2).Value Like "*Arena*" Then
Set Arena = True
Else
Set Arena = False
End If
Next L
If Arena = True Then
Cells(intZeilenanzahl + 2, 1).Activate
ActiveCell.FormulaR1C1 = "Wir haben ARENA gefunden"
End If
End Sub