Problem bei der Suche
17.03.2006 14:16:02
Thomas
Ich habe folgendes Problem, ich habe in einer Userform eine Suchmaske eingebaut, d.h. wenn ich in ein Textfeld einen Suchbegriff eingebe, soll er mir die Daten aus einem anderen Tabellenblatt in die anderen angegebenen Textfelder ausgeben. Dies funktioniert auch! Allerdings habe ich es bisher so geregelt, dass wenn ich z.B "tes" eingebe, dass er mir dann die Daten von "Test" auswirft! Nun soll er mir jedoch eine Reihe von Daten anzeigen, die diese Buchstaben auch beinhalten! Also wenn ich als Suchbegriff "tes" eingebe und einen Button drücke, soll er mir ein Fenster öffnen und die Suchergebnisse anzeigen. Also dann "tes", "test", "tester"....etc... also wenn ich nur "t" eingeben würde, dann soll er mir alle mit "t" anzeigen! Nun gut, wie kann ich sowas realisieren? Geschieht dies über ein Listenfeld? Ich möchte die Sachen dann anklicken können und in die Textfelder übernehmen!
Hier mein Code, ich hoffe ihr habt verstanden was ich meine! Über ein kleines Beispiel würde ich mich freuen!
Private Sub CommandButton3_Click()
Set frm4 = UserForm4
With frm4
Sheets("Datenbank").Activate
Sheets("Datenbank").Visible = True
Sheets("Datenbank").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox21.Value, _
after:=ActiveCell, _
LookIn:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Value
.TextBox3.Value = ActiveCell.Offset(0, 1).Value
.TextBox4.Value = ActiveCell.Offset(0, 19).Value
.TextBox5.Value = ActiveCell.Offset(0, 2).Value
.TextBox6.Value = ActiveCell.Offset(0, 3).Value
.TextBox7.Value = ActiveCell.Offset(0, 4).Value
.TextBox8.Value = ActiveCell.Offset(0, 5).Value
.TextBox9.Value = ActiveCell.Offset(0, 7).Value
.TextBox43.Value = ActiveCell.Offset(0, 6).Value
.TextBox10.Value = ActiveCell.Offset(0, 8).Value
.TextBox11.Value = ActiveCell.Offset(0, 9).Value
.TextBox12.Value = ActiveCell.Offset(0, 10).Value
.TextBox13.Value = ActiveCell.Offset(0, 11).Value
.TextBox14.Value = ActiveCell.Offset(0, 12).Value
.TextBox15.Value = ActiveCell.Offset(0, 13).Value
.TextBox16.Value = ActiveCell.Offset(0, 14).Value
.TextBox17.Value = ActiveCell.Offset(0, 16).Value
.TextBox18.Value = ActiveCell.Offset(0, 17).Value
.TextBox19.Value = ActiveCell.Offset(0, 18).Value
.TextBox20.Value = ActiveCell.Offset(0, 15).Value
Exit Sub
fehler:
MsgBox "Die Firma " & _
.TextBox21.Value & " konnte nicht gefunden werden!"
End With
Sheets("Datenbank").Activate
Sheets("Datenbank").Visible = False
End Sub
Gruß & besten Dank
Thomas
Anzeige