In Textbox soll daten automatisch erscheinen

Computer: Software & Programmierung Office Software
1

Hallo.
Ich habe folgendes Problem mit Userform:
Ich habe eine Combobox, wo ich verschiedene Kunden auswählen kann.
Wenn ich jetzt einen Kunden ausgewählt habe, möchte ich, das in den dafür vorgesehen textboxen (zb 1 bis 4) die daten vom Kunden stehen.

Jetzt komm ich aber nur soweit, das ich die Daten in die Box bekomme, wenn ich mit der Maus drüber fahre.
Habe schon alle einstellungen (Change, doppelklick usw. ) ausprobiert.
Was mache ich da falsch?

2

Ich habe folgendes Problem mit Userform:
Ich habe eine Combobox, wo ich verschiedene Kunden auswählen
kann.
Wenn ich jetzt einen Kunden ausgewählt habe, möchte ich, das
in den dafür vorgesehen textboxen (zb 1 bis 4) die daten vom
Kunden stehen.

Jetzt komm ich aber nur soweit, das ich die Daten in die Box
bekomme, wenn ich mit der Maus drüber fahre.
Habe schon alle einstellungen (Change, doppelklick usw. )
ausprobiert.

Hi Krisam,

schwierig nachzuvollziehen ohne die Codes zu kennen.
Wenn du im Change-Ereignis-Code der Combobox1 sowas hast:

TextBox1=application.worksheetfunction.vlookup(ComboBox1,…)

so muesste das funktionieren, auch ohne mousemove.

Setze mal einen Haltepunkt in den Change-Ereignis-Code der ComboBox, wird er angesprungen?

Wenn ja, dann mit F8 weiter, werden die Textboxen aktualisiert, wenn ja, loescht die wieder irgendein Code?

Alles jetzt nur vage Vermutungen.

Wenn du nicht weiterkommst, poste mal allen relevanten Code oder aber eine kleine Beispieldatei hochladen wo das passiert.

Gruss
Reinhard

3

Hallo.
Danke zuerst einmal, werd es morgen ausprobieren (Habe das Prg in der Firma)
Lass dich wissen, obs funktioniert hat, Danke.

4

Hallo reinhard.
Leider hat es nicht geklappt.
Hier ein Auszug aus dem Programm.
Wie gesagt, ich wähle mit der ComboBox eine Firma an, und in den Zeilen soll dann die verschiedenen Einträge dazu (Namen, Strasse usw…) erscheinen.
Kannst du damit etwas anfangen?

Private Sub ComboBox5_Change()

Range(„F9:F17“).Select
Selection.ClearContents
Sheets(„Formel“).Select
Range(„D57“) = ComboBox5
End Sub
'-----------
Private Sub UserForm_Initialize()
Sheets(„Formel“).Select
'Combobox5 Auswahl Firma Rechnung
BBnrEingabe.ComboBox5.RowSource = „A50:A150“
BBnrEingabe.ComboBox5 = „Kunden wählen“
Range(„D57“) = „“
'---------
Private Sub TextBox2_Change()
Sheets(„Formel“).Select
[F11] = Me.TextBox2.Value
End Sub
'---------
Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets(„Formel“).Select
Me.TextBox2.Value = [E11]
End Sub
'--------
Private Sub RName_Change()
Sheets(„Formel“).Select
[F12] = Me.RName.Value
End Sub
'---------
Private Sub RName_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets(„Formel“).Select
Me.RName.Value = [E12]
End Sub

5

Hallo Anton,

in der hochgeladenen Datei in
http://www.wer-weiss-was.de/cgi-bin/forum/showarticl…
ist eine kleine Beispiel-UF wie ich das meine.

In
Private Sub ComboBox5_Change()
End Sub

Muß halt rein:

TextBox2.value=…
[A1]=TextBox2.Value

dann brauchste

Private Sub TextBox2_Change()

nicht.

Ist aber nur ein Ansatz.

Gruß
Reinhard

6

Hallo.
Leider bekomme ich das nicht hin.
Ich habe jetzt eine Beispiel Datei gefunden, was genau das währe, was ich benötige, nur verstehe ich den Code nicht:
Option Explicit

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
TextBox2.Value = ComboBox1.List(ComboBox1.ListIndex, 2)
End Sub

Er hat in Tabelle 1 in A2 bis A6 die Auswahlfelder für die ComboBox (Woherweiß die Combobox, was sie Anzeigen soll?)
Und in den Spalten B und C die passenden Werte, welche in den beiden Textboxen angezeigt werden sollen.

Wie müsste ich das schreiben, wenn die Auswahlfelder für die Combobox A50 bis A100 stünde,
und der Wert für die Textbox1 immer in der Zelle D50 steht, und für die zweite Textbox steht der Wert in Zelle E50?

Hier der Link zu dem Prg.
http://www.herber.de/bbs/user/47848.xls

Danke nochmal

7

Ich habe jetzt eine Beispiel Datei gefunden, was genau das
währe, was ich benötige, nur verstehe ich den Code nicht:
Option Explicit

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
TextBox2.Value = ComboBox1.List(ComboBox1.ListIndex, 2)
End Sub

Er hat in Tabelle 1 in A2 bis A6 die Auswahlfelder für die
ComboBox (Woherweiß die Combobox, was sie Anzeigen soll?)
Und in den Spalten B und C die passenden Werte, welche in den
beiden Textboxen angezeigt werden sollen.

Hallo Anton,

doppelklicke mal auf die UF im Editor, dann klicke die Combobox an, F4 für Ansicht des Eigenschaftsfensters, dort siehst du unter Rows,Rowsource o.ä. „Daten“ stehen.
„Daten“ ist ein vergebener Name für einen ZellenBereich, den siehst du in Excel unter Einfügen–Namen–…

Kommst du damit klar, wenn nicht melde dich nochmal.

Hier der Link zu dem Prg.
http://www.herber.de/bbs/user/47848.xls

Gruß
Reinhard

8

hallo Reinhard.

Danke für deine Erklärung.
Habe ich nicht gewusst, das es so auch geht.

Danke