Office: (Office 2013) Textboxen füllen wenn bestimmter Wert in einer TextBox

Hallo zuammen,

ich habe eine UserForm mit der ich eine Tabelle fülle.

Ich möchte jetzt folgendes machen:

1. Wenn ich in die TextBox6 eine bestimmte Nummer eingebe, dann sollen die TextBox7, TextBox8, ComboBox1, ComboBox2 mit Werten aus der Tabelle ABC.xls gefüllt werden.

2. Wenn die Nummer aus TextBox6 nicht in der TabelleABC.xls gefunden wird, soll ein Fenster aufgehen und es soll drinnen stehen: Der Artikel ist neu.

Zu 1.: Der zu suchende Werte aus TextBox6 steht in Spalte A der Tabelle ABC.xls. Die Daten für TextBox7, TextBox8, ComboBox1 und ComboBox2 stehen dann in der dazugehörigen Zeile.

Vielen Dank für eure Hilfe.

:)

 

Hi Christian,

benutze die Find-Methode, nach diesem Prinzip (ungetestet):

Code:

 

Hallo Beverly,

danke für deinen Code.

Habe den Code jetzt versucht anzupassen:

 

Hi Christian,

und wo ist das Problem?

 

Hallo Beverly,

das Problem ist, dass ich zwar in die UserForm eintragen kann, die Werte aber nicht in die UserForm geschrieben werden und auch nicht in meine Tabelle geschrieben werden.

Habe es bereits mit Umstellungen der Codes versucht. Dann kommen aber immer Fehlermeldungen. Mein Wissen reicht wohl noch nicht ganz aus.

Ich würde mal meine Datei laden.

Vielen Dank

 

Hi Christian,

dein Code trägt einerseits Daten aus den TextBoxen ins Tabellenblatt ein und andererseit sollen Daten aus einem Tabellenblatt in die TextBoxen übernommen werden - das erscheint mir irgendwie unlogisch. Erkläre doch mal ganz genau und Schritt für Schritt, was du mit dem UserForm machen willst.

 

Hallo Beverly,

ich möchte gerne mit der UserForm Daten in die Tabelle Übersicht eintragen.

Mit Hilfe der zweiten Tabelle (Artikelmarkmale.xls) möchte ich gerne, nach Eingabe in die TextBox 6, dass die TextBoxen 7, 8, ComboBox1, ComboBox2 und TextBox9 ausgefüllt werden.

Ich habe in der Anlage mal geschrieben wo sich die Daten befinden, welche TextBox gefüllt werden soll und wo die Daten hingeschrieben werden sollen.

Ich hoffe das die Sache jetzt etwas klarer wird.

Vielen Vielen Dank.

 

Hi Christian,

schreibe den von mir geposteten Code z.B. in das Exit-Ereignis der TextBox6 - d.h. beim Verlassen der TextBox wird dann in der anderen Mappe gesucht und in die relevanten TextBoxen eingetragen.

Code:

Testen kann ich es nicht, da mir die andere Mappe nicht vorliegt.

 

Hallo Beverly,

ich habe deinen Code umgesetzt und es wird mir dies hier gelb als Fehler angezeigt:

With Workbooks("ABC.xls").Worksheets("A")

Die Datei heißt aber ABC.xls und das Blatt heißt A.

Laufzeitfehler 9 - Index außerhalb der gültigen Bereichs.

Danke

 

Hi Christian,

der Laufzeitfehler "Index außerhalb der gültigen Bereichs" besagt nichts anderes als: "das angesprochene Objekt ist nicht vorhanden". Wenn es die Mappe "ABC.xls" und darin das Tabellenblatt "A" tatsächlich gibt, dann ist die Mappe bei Codeausführung nicht geöffnet und damit kann sie nicht angesprochen werden.

 

Hallo Beverly,

die Datei ist geschlossen.

Gibt es da die Möglichkeit dies trotzdem so zu machen wie ich es mir wünsche?
(Später soll die Datei ABC.xls auch geschützt werden, damit nicht jeder Mitarbeiter Daten lesen kann)

Vielen Dank.

 

Hi Christian,

entweder du öffnest die Arbeitsmappe kurz im Hintergrund, um die Daten mit dem geposteten Code einzulesen, oder du holst die Daten per Formeln INDEX und VERGLEICH in Zellen deines Tabellenblattes und liest diese dann in die TextBoxen ein.

 

Hallo Beverly,

ich habe es jetzt soweit gelöst.

vielen Dank