Textfelder in Abhängigkeit einer Combobox automatisch befüllen

04/06/2008 - 20:16 von Ulli | Report spam
Hallo...
Ich habe folgendes Problem.
Ich habe mir in EXCEL(2003) ein Rechnungsformular gebastelt und bin im laufe
der entwicklung zwangslàufig mit VBA in berührung gekommen.
Nun habe ich mir ein Userform gebastelt in dem ich überTextfelder die Daten
der Kunden eingebe.Das Eingabefeld "Nachnahme" ist in dieser Userform eine
Combobox. Die eingegebenen Daten werden in einem Tabellenblatt namens
"Kunden"in einer Liste gespeichert (Anrede,Vorname,Name,Straße,Plz,Ort - In
einer ZEILE angeordnet).Diese Liste wird nach jedem eintrag erweitert und neu
sortiert.
Ich bin jetzt auch schon soweit das in der Combobox die Nachnamen korekt
bereitstehen und auch ein neuer Name eingetragen werden kann. Desweiteren
habe ich hier auch das Autovervollstàndigen hinbekommen.
Und jetzt möchte ich aber das wenn ich einen vorgeschlagenen Namen aus der
Liste wàhle auch gleichzeitig alle Textfelder der Userform mit den Daten aus
meiner Liste passend zu dem gewàhlten Namen automatisch befüllt werden...
Bitte um schnelle Antwort.. ;-)
 

Lesen sie die antworten

#1 stefan onken
05/06/2008 - 16:49 | Warnen spam
On 4 Jun., 20:16, Ulli wrote:
Hallo...
Ich habe folgendes Problem.
Ich habe mir in EXCEL(2003) ein Rechnungsformular gebastelt und bin im laufe
der entwicklung zwangslàufig mit VBA in berührung gekommen.
Nun habe ich mir ein Userform gebastelt in dem ich überTextfelder die Daten
der Kunden eingebe.Das Eingabefeld "Nachnahme" ist in dieser Userform eine
Combobox. Die eingegebenen Daten werden in einem Tabellenblatt namens
"Kunden"in einer Liste gespeichert (Anrede,Vorname,Name,Straße,Plz,Ort - In
einer ZEILE angeordnet).Diese Liste wird nach jedem eintrag erweitert und neu
sortiert.
Ich bin jetzt auch schon soweit das in der Combobox die Nachnamen korekt
bereitstehen und auch ein neuer Name eingetragen werden kann. Desweiteren
habe ich hier auch das Autovervollstàndigen hinbekommen.
Und jetzt möchte ich aber das wenn ich einen vorgeschlagenen Namen aus der
Liste wàhle auch gleichzeitig alle Textfelder der Userform mit den Daten aus
meiner Liste passend zu dem gewàhlten Namen automatisch befüllt werden...
Bitte um schnelle Antwort.. ;-)



hallo Ulli,
in das Change-Ereignis deiner Combobox müsste so etwas:

Private Sub ComboBox1_Change()
Set f = Sheets("Kunden").Range("C:C").Find(ComboBox1)
If Not f Is Nothing Then
TextBox1 = Sheets("Kunden").Range("C" & f.Row)
Else
TextBox1 = ""
End If
End Sub

Die Namen der Combo- und Textboxen anpassen und für weitere Textboxen
ergànzen.
Was jedoch soll geschehen bei 2 Kunden gleichen Nachnamens?


Gruß
stefan

Ähnliche fragen