Clever-Excel-Forum

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

Hallo Frank,

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

Gruß Uwe

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

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

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

Hallo Frank,

zunächst hast Du eine Textbox
genannt.


Und dann probier es mal so.



Gruß
Ich

Hallo Uwe,

manchmal ist man halt ein bischen Blind :19: 

Der neue Code funktioniert bestens.

Vielen Dank

Gruß
Frank