Laufzeitfehler 13

Private Sub UserForm_Activate()
Dim Knummer As Integer

Dim Z As Long

Aufwertungen.txtKartennummer = ""

Aufwertungen.txtKostenstelle = ""

Aufwertungen.txtName = ""

Aufwertungen.txtStatus = ""

Aufwertungen.txtRestwert = ""

Aufwertungen.txtCO = ""

Aufwertungen.txtBemerkung = ""

'On Error GoTo Fehler

Knummer = Application.InputBox(prompt:="Bitte Kartennummer eingeben.", Title:="Eingabe  _
Kartennummer")

Aufwertungen.txtKartennummer.Value = Knummer

Z = 0

With Worksheets("Kartenliste")

Z = Columns("A:A").Find(What:=Knummer, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Row

End With

Aufwertungen.txtName = Worksheets("Kartenliste").Range("B" & Z).Value

Aufwertungen.txtStatus = Worksheets("Kartenliste").Range("F" & Z).Value

Aufwertungen.txtKostenstelle = Worksheets("Kartenliste").Range("C" & Z).Value

Aufwertungen.txtCO = Worksheets("Kartenliste").Range("D" & Z).Value

If Aufwertungen.txtStatus.Value  "Aktiv" Then

MsgBox "Ung?ltige Kartennummer. Bitte g?ltige Kartennummer eingeben oder Kartenstatus ?ndern!"
Exit Sub

End If

Fehler:

'MsgBox "Karte nicht vorhanden!"

End Sub