Textbox via Vlookup füllen

[Tuempeltaucher]

Hallo Leute,

ich möchte in einer Datenmaske mehrere Textboxen automatisch füllen lassen.
Das soll folgendermaßen funtionieren.
Eingabe einer Nummer in der Textbox 1
via vlookup die Werte einer Tabelle in die dafür vorgesehen Textboxen schreiben.


Die Werte befinden sich im Tabellenblatt "M_Daten".
Die Datenmaske wird per Button aus einem Tabellenblatt gestartet.

Da ich sogut wie garkeine Kenntnisse von VBA habe, brauche ich Eure unterstützung.

Mit freundlichen Gruß

Frank

[Kuwer]

Hallo Frank,

zeige doch mal die SVERWEIS()-Formel, wenn sie in einer Zelle stünde.

Gruß Uwe

[Tuempeltaucher]

Hallo Uwe,

der Sverweis sieht folgendermaßen aus:

"=SVERWEIS(Tabelle1!A1;M_Daten!A2:H500;2;WAHR)"

wie der sverweis funktioniert weis ich.
Ich bekomme nur nicht die Umsetzung in VBA hin.


Gruß
Frank

[Kuwer]

Hallo Frank,

das könnte dann z.B. so aussehen:

Private Sub TextBox1_AfterUpdate()

 TextBox2 = Application.WorksheetFunction.VLookup(TextBox1, Worksheets("M_Daten").Range("A2:H500"), 2, True)

 TextBox3 = Application.WorksheetFunction.VLookup(TextBox1, Worksheets("M_Daten").Range("A2:H500"), 3, True)

 '...

End Sub

Gruß Uwe

[Tuempeltaucher]

Hallo Uwe,

erstmal viellen Dank für Deine Antwort.
Habe Code wie folgt angepasst:

Private Sub Text_Objekt_Nummer_AfterUpdate()
   Text_Werk                              = Application.WorksheetFunction.VLookup(Text_Objekt_Nummer, Worksheets("M_Daten").Range("A2:H500"), 2, True)
   Text_Maschinen_Bezeichnung = Application.WorksheetFunction.VLookup(Text_Objekt_Nummer, Worksheets("M_Daten").Range("A2:H500"), 3, True)
 '...
End Sub

bekomme dann aber einen Laufzeitfehler 1004 (Die Vlookup-Eigenschaft des WoorksheetFunktion-Objekts kann nicht zugeordnet werden.)


Gruß
Frank

[IchBinIch]

Hallo Frank,

zunächst hast Du eine Textbox

PHP-Code:

Tex_tWerk 


genannt.


Und dann probier es mal so.

PHP-Code:

Me.Tex_tWerk = Application.WorksheetFunction.VLookup(Val(Text_Objekt_Nummer), Worksheets("M_Daten").Range("A2:H500"), 2, True)
Me.Text_Maschinen_Bezeichnung = Application.WorksheetFunction.VLookup(Val(Text_Objekt_Nummer), Worksheets("M_Daten").Range("A2:H500"), 3, True) 


Gruß
Ich

[Tuempeltaucher]

Hallo Uwe,

manchmal ist man halt ein bischen Blind :19: 

Der neue Code funktioniert bestens.

Vielen Dank

Gruß
Frank