Thema Datum  Von Nutzer Rating
Antwort
15.11.2007 09:07:01 cem
NotSolved
15.11.2007 10:22:39 jh
NotSolved
Rot Aw:Schleife
 15.11.2007 13:06:34 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
15.11.2007 13:06:34		 Views:
999		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Schleife
Hallo cem,
ich gehe davon aus, dass du eine Datei mit den Daten hast, z.B Kunden (4,n), wobei Kunden (0,1) die Kundennummer, Kunden(1,n) der zugehörigen Kundenname usw. sind. In meinem Beispiel hat die UserForm eine ComboBox1, um die Kundennummern anzuzeigen, und nur eine TextBox1 um beispielhaft den Kundennamen anzuzeigen. Der Einfachheit haber habe ich die Anzahl der Kunden auf 10 begrenzt (sonst das Array mit ReDim Preserve erweitern) und weise den den Kunden in der Initialisierung die Kundennummern 0 bis 9 und die Namen A bis J zu. Suchst du in der Combobox1 eine Kundennummer durch Anklicken aus, wird das Click-Ereignis für die Anzeige des Kundennamens in textBox 1verwendet. Ich denke, die Erweiterung für dein Anliegen ist einfach.

Private Kunden(4, 10)

Private Sub ComboBox1_Click()
TextBox1 = Kunden(1, ComboBox1.ListIndex)
End Sub

Private Sub UserForm_initialize()
For i = 0 To 10
Kunden(0, i) = i
ComboBox1.AddItem i
Kunden(1, i) = Chr(i + 65)
Next i
End Sub

Viel Erfolg
Holger


cem schrieb am 15.11.2007 09:07:01:

Hallo zusammen,

bin Neueinsteiger in VBA und habe ein Problm.

Ich habe ein Formular, auf dem ich die Kundennummer über ein Kombinationsfeld aussuchen kann. Dann habe ich die Felder "Kundenname" + "Straße"+ "PLZ" + "ort".

Je nach dem welche Kundennummer im Kombinationsfeld ausgesucht wird, soll in diesen oben genannten Felder in der Tabelle "Kundendaten" die entsprechende Kundennummer gesucht und dann die entsprechenden (also Kundennamme, Straße, PLZ und Ort) Felder im Formular eingetragen werden.

Ich habe das mit Do whileversucht aber die Syntax ist irgendwie verkehrt.

Kann mir jemand helfen???

Gruß
Cem

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.11.2007 09:07:01 cem
NotSolved
15.11.2007 10:22:39 jh
NotSolved
Rot Aw:Schleife
 15.11.2007 13:06:34 Holger
NotSolved