Laufzeitfehler

Private Sub CommandButton1_Click()
' Kategorien festlegen
Dim Suchbegriff1
Suchbegriff1 = TextBox1.Value
Dim Kategorie1
Kategorie = TextBox2.Value
'Zellbereich setzen in dem gesucht wird
Dim zelle As Range
Dim gefundeneZelle As Range
'Zeile Merken zum kopieren
Dim x
'definieren des Suchbereichs Spalte 3 ab Zeile2
For Each zelle In Range(Cells(2, 3), Cells(Range("C65536").End(xlUp).Row, 3))
'setzen der Suche
Set gefundeneZelle = Cells.Find(What:=Suchbegriff1, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'WENN-SUCHE erfolgreich, dann kopiere Begriff
If Not gefundeneZelle Is Nothing Then
'Zuordnung der richtigen Zeile
gefundeneZelle.Activate
x = ActiveCell.Row
'DANN trägt die Kategorie ein
'Spalte Kategorie definiert auf 5 im Moment
Cells(x, 5) = Kategorie
'Falls nichts gefunden wird Fehlermeldung ausgeben
Else
MsgBox ("nichts gefunden")
'Beenden der Schleifen
Exit For
End If
Next zelle
'nach Ende der Suche alle Variablen zurücksetzen
End
End Sub