wie kann ich Kundennummer über eine Userform1 eingeben und auf Tabellenblatt("Kundendatei-Kundenanschrift") danach suchen?
Ich habe einen Button("KSuchen") und eine Textbox2.
Wenn ich meine Kundennummer eingeben möchte, egal welche, die sich in dem o.g tabellenblatt befinden, und mir dann die entsprechenden Datensätze ausgeben lassen will, wie kann ich das realisieren?
Mein QT bisher:
' Das Feld der Kundennummer wird auf Ihren Inhalt überprüft
If TextBox2 = "" Then
MsgBox ("Bitte geben sie eine Kundennummer ein")
TextBox2.SetFocus
Exit Sub
Else
UserForm1.MultiPage1.Value = 1
End If
'Personalnummer über eine Userform eingeben und auf Tabellenblatt danach suchen
Workbooks("Bestelltool.xls").Worksheets("Kundendatei-Kundenanschrift").Select
Dim i As Integer
Dim tr As Integer
For i = 2 To 400
If TextBox2.Value = Cells(i, 2) Then
tr = i
'Kundenanschrift
Workbooks("Bestelltool.xls").Worksheets("Kundendatei-Kundenanschrift").Activate
Titel.Value = Cells(tr, 4).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
'Firmenanschrift
Workbooks("Bestelltool.xls").Worksheets("Kundendatei-Firmenanschrift").Activate
Tel1.Value = Cells(tr, 13).Value
FaxFirma.Value = Cells(tr, 14).Value
Email1.Value = Cells(tr, 15).Value
PLZPost.Value = Cells(tr, 11).Value
Postfach1.Value = Cells(tr, 12).Value
PLZ1.Value = Cells(tr, 9).Value
Ort1.Value = Cells(tr, 10).Value
Strasse1.Value = Cells(tr, 7).Value
HNR1.Value = Cells(tr, 8).Value
Name1.Value = Cells(tr, 6).Value
Brange.Value = Cells(tr, 5).Value
Firma.Value = Cells(tr, 4).Value
'Nach erfolgreicher Suche der KdNr. liest das Programm die Daten aus der Kundendatenbank; integriert sieht man, dass die Multiseite von Start in die benötigte Kundendaten-Ansicht wechselt
UserForm1.MultiPage1.Value = 1
Exit Sub
End If
Next