Office: (Office 2013) Vba-Eingabemaske- In Spalte suchen und in Texboxen Zeile ausgeben

Hey liebes Forum,

ich beschäftige mich mit einer "Suchdatenbank" via VBA, die folgende Funktionen haben soll:

Eine Datenbank umfasst c.a. 4000 Zeilen, in Spalte A befindet sich der Firmenname ( z.b. Maier AG ). Dieser Wert soll durch Eingabe in eine Textbox gesucht werden und die weiteren Daten dieser Zeile sollen in die weiteren Textboxen ( 6 insgesamt ) geschrieben werden. z.B Ich gebe in TextBox 7 Maier AG ein, Der Name Maier Ag soll dann in txtBox1 erscheinen die Adresse(Spalte B) in txtBox 2 usw...

Leider bin ich kein wirklicher Held was VBA angeht und ich habe mir meine aktuelle Eingabemaske mit etwas eigenem Wissen und Vielen Befehlen aus Foren zusammengeschustert... Neue Einträge, Löschen, Speichern, Drucken funktioniert bereits alles, nur das mit dem suchen will nicht so richtig.

Hiermit habe ich es mal probiert hatte jedoch keinen Erfolg es passiert einfach nichts wenn ich etwas in Textbox 7 eingebe.*rolleyes.gif*

Private Sub TextBox7_Change()
Dim Zelle As Range
Set Zelle = Columns(1).Find(what:=TextBox7.Text, lookat:=xlWhole)
If Not Zelle Is Nothing Then
TextBox2.Text = Zelle.Offset(0, 1).Text
TextBox3.Text = Zelle.Offset(0, 2).Text
TextBox4.Text = Zelle.Offset(0, 3).Text
TextBox5.Text = Zelle.Offset(0, 4).Text
TextBox6.Text = Zelle.Offset(0, 5).Text

Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

End If
End Sub

Vielleicht hat mir ja jemand einen Tipp, bei Bedarf kann ich euch auch den Code meiner Eingabemaske zukommen lassen*top

Danke im Voraus

Grüße

:)

 

Hi Mike,

ich würde nicht das Change Ereignis wählen. Damit startest Du die Suche nach jeder Eingabe. Nimm einen extra Suchen Button oder das KeyDown Ereignis und starte die Suche dann, wenn der Keycode = 13 (Enter) ist.

Und dann weise den TextBoxen die Werte so zu:
Code:

 

Hey Ralf,

Danke für die schnelle Antwort, werde es Morgen sofort ausprobieren! Heute brennt mir der Kopf wahr wohl zu viel VBA für einen Tag *tongue.gif*

Grüße Mikey

 

Guten Morgen,

Probier jetzt schon wieder ne ganze Weile rum aber hab ehrlich gesagt nicht den genauen Durchblick was ich da tue... hab jetzt mal einen extra Button eingeführt ( ich hab das so verstanden das ich etwas in meine textbox 7 eingeb und dann den Button drücke??? oder bin ich auf dem kompletten Holzweg?) Mit folgendem Code bei dem warsch nur der Teil von Ralf richtig ist ^^ zeigt es mir an das die Variablen nicht definiert sind.... hat das etwas mit der Zelle zu tun? Mit dem keydown bin ich leider auch nicht ganz durchgestiegen

Private Sub Form_KeyDown(keycode = 13 As Integer, enter As Integer)

 

Hi,

ich würde es so lösen:

Code:

 

Hi Beverly,

Funktioniert perfekt!!! Musste nur noch vor columns(1) die Tabelle angeben meine restlichen Textboxen hinzufügen und es hat gepasst.

Vielen Dank an dich und den Rest der mich Step by Step ans Ziel geführt hat.


Wünsche euch allen ein schönes Wochenende

Grüße