Textfeld automatisch füllen je nach vorigem Texfel
07.02.2005 09:24:52
Gabi
Heute früh gab es Fehlermeldungen beim Aufruf des Forums, desshalb die Anfrage noch einmal.
Gleich noch eine Frage.
Nachdem ich gestern den ganzen Tag die Suchmaschine gequält habe und die halbe Nacht OHNE Erfolg damit verbracht habe eine Formel einer TextBox "näher zu bringen", hier eine Frage an Euch.
Ich habe in einem Arbeitsplatt 2 Tabellen.
Tabelle 2 "Lieferanten" mit einer Liste von Lieferanten L_Nummer-Name-PLZ-Ort-Tel.-Fax- . . . usf.
PLZ in Spalte F Ort in Spalte G Der gesamte Bereich PLz und Ort hat den Namen "PlzListe"
Tabelle 1 mit:
L_Nummer (in A1) - Firma (in B1) - Name(in C1) - Vorname (in D1) - PLZ (in E1) - Ort (in F1)
als Überschriften.
In F2 habe ich folgende Formel =SVERWEIS(E2;PlzListe;2;FALSCH)
Wenn ich nun in Tabelle 1 bei Bedarf einzelne Spalten ausfülle, wird nach der Eingabe der Postleitzahl in Spalte E *automatisch* der dazugehörige Ort in Spalte F eingetragen :)
Nun mein Problem.
Ich möchte, daß auf ein UserForm übertragen. In Textbox "PLZ" eine Postleitzahl eingegeben soll automatisch in der daneben liegenden TextBox der Ort erscheinen.
Jetzt muss ich beim ausfüllen der PLZ (TextBox6) in der TextBox7 den dazugehörigen Ort per Hand aus einer anderen Datei heraussuchen und eintragen.
Ich bekomme es nicht hin, der TextBox7 im UserForm1 zu sagen:
"Wenn in der Textbox6 ("PLZ") eine Zahl drinsteht, dann schau in Tabelle 2 ("Lieferanten") nach, welcher Ort zu dieser PLZahl gehört und Zeige diesen Wert in der Textbox7 ("Ort") an :( :( :(
Trage danach bei Klick auf "Eintragen" die Inhalte des Userform in die nächste Freie Zeile in Tabelle1 ein.
Wie bekomme ich so einen SVERWEIS wie oben gezeigt in und mit der TextBox7 verwirklicht?
Also, sobald ich in Textbox6 eine PLZ eintrage, soll in Textbox7 automatisch der dazugehörige Ort erscheinen.
Mit freundlichen Grüßen
Gabi
Mein Userform bisher:
Private Sub CommandButton1_Click()
'--- Beginn Buttom ---
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 1) = TextBox1
Cells(z, 2) = TextBox2
Cells(z, 3) = TextBox3
Cells(z, 4) = TextBox4
Cells(z, 5) = TextBox5
Cells(z, 6) = TextBox6
End Sub
' --- Ende Buttom ---
Private Sub Label2_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
' --- Textbox PLZ Beginn ---
Private Sub TextBox5_Change()
End Sub
' --- Textbox PLZ Ende ---
' --- Textbox Ort Beginn hier soll laut PLZ der Ort ausgelesen werden ---
Private Sub TextBox6_Change()
End Sub
' --- Textbox Ort Ende ---
Private Sub UserForm_Click()
End Sub
Anzeige