Hallo Forumsteilnehmer,
ich habe folgendes Problem. Ich habe eine Kundendatenbank angefertigt. Ich möchte diese mit einer Suchfunktion nach Kundennummer aber auch Kundenname erweitern. Nun habe ich den Code für die Suche nach der Kundennummer fertiggestellt jedoch bekomm ich den Fehler "13 Typen unverträglich". Ich bekomme den Fehler in der mit dem Pfeil markierten Zeile. Woran könnte dies liegen? Vielleicht hat ja auch jemand von Euch einen Vorschlag bezüglich der Suche nach den Kundennamen. Da hab ich nämlich keinen Schimmer wie ich das angehen soll. Danke für Eure Hilfe
CODE:
'Personalnummer über eine Userform eingeben und auf Tabellenblatt danach suchen
Worksheets("Kunde").Activate
Dim i As Integer
Dim tr As Integer
i = 1
Do While Cells(i, 2) Val(TextBox1.Value) Or Cells(i, 2) = "" -- FEHLER
i = i + 1
Loop
tr = i
'Kundenanschrift
Titel.Value = Cells(tr, 4).Value
Anrede.Value = Cells(tr, 5).Value
Vorname.Value = Cells(tr, 6).Value
NameK.Value = Cells(tr, 7).Value
Strasse.Value = Cells(tr, 8).Value
Hausnummer.Value = Cells(tr, 9).Value
PLZOrt.Value = Cells(tr, 10).Value
Ort.Value = Cells(tr, 11).Value
PLZPostfach.Value = Cells(tr, 12).Value
Postfach.Value = Cells(tr, 13).Value
Telefon.Value = Cells(tr, 14).Value
Fax.Value = Cells(tr, 15).Value
Email.Value = Cells(tr, 16).Value
Gruss
Christian