wo bitte liegt der Fehler begraben?
Das sheet soll in Spalte B nach "Arena" durchsucht werden,
und wenn in eines der Zeilen vorhanden meine Variable "Arena" auf WAHR setzen.
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
Wer kann mir bitte helfen meinen Fehler zu finden.
Excel meldet "Objekt erforderlich".
Dank an Euch,
viele Grüße,
Anton