Laufzeitfehler 13
07.12.2019 18:25:09
Lage
ich bekomme bei der folgenden Routine immer den Laufzeitfehler 13, Typen unverträglich ausgewiesen und kann den Grund nicht finden:
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
Der Fehler kommt, wenn Z einen Wert bekommen soll.
Danke für eure Hilfe!!!
Gruß
Michael