Userform mit Listbax

Question

Hallo zusammen,

ich habe ein Userform mit einer Listbox, in der Listbox werden die Zeilen der Tabelle "Jan" angezeigt, durch einen Doppelclick werden die Daten wieder in Das Userform eingelesen

Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 1)
TextBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 2)
ComboBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 3)
TextBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 4)
TextBox5.Value = ListBox1.List(Me.ListBox1.ListIndex, 5)
TextBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 0)
ComboBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 6)
TextBox6.Value = ListBox1.List(Me.ListBox1.ListIndex, 7)
TextBox7.Value = ListBox1.List(Me.ListBox1.ListIndex, 8)
TextBox8.Value = ListBox1.List(Me.ListBox1.ListIndex, 9)
TextBox9.Value = ListBox1.List(Me.ListBox1.ListIndex, 10)
TextBox10.Value = ListBox1.List(Me.ListBox1.ListIndex, 12)
TextBox11.Value = ListBox1.List(Me.ListBox1.ListIndex, 11)
ComboBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 13)

Jetzt möchte ich die Daten ändern.....
und dann wieder in die gleiche Zeile abspeichen.

Answer 1

Hallo HWR,

kein Problem. Ich werde Dir die Datei mal anpassen. Wird aber erst was zum Nachmittag, da ich jetzt erst mal weg muss.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hi Oliver,

das Super von Dir, es hat auch Zeit, ich möchte nicht das Du deinen Sonntag für mich opferst.

Danke

Gruß HWR

Answer 3

Hallo HWR,

lade Dir mal unter http://excelbeispiele.de/Beispiele:Supportnet/Erfolge-BLV-Mustermann_bearbeitet.xls die geänderte Datei herunter. Die Änderungen befinden sich in den Ereignissen "UserForm_Initialize", "ListBox1_DblClick" und "CommandButton1_Click". Schau Dir das mal an.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hi,

Hier habe ich einmal eine mögliche Anpassung versucht, so wie ich das Problem verstanden habe.

Änderungen habe ich für ein leichtes Auffinden einmal mit (XXXX) im Kommentar gekennzeichet. (Einfach das Project danach durchsuchen.)

btw.
[*] Nur für Userform1 geändert
[*] daher auch nur in Tab "Jan" (flüchtig) getestet
[*] aufgefallene Probleme nicht beseitigt

aufgefallene Probleme:
[*] Monat wird beim Anlegen eines neuen Datensatzes in O geschrieben-> Monat wird bei Auswahl in Listbox aber nicht in Combobox1 geschrieben-> nach Änderung ist Spalte O dann also leer
[*] Fehl- oder fehlende Eingaben sollten abgefangen werden. Bsp Eingabe eines Prozentsatzes bei leerer Textbox für "AbschlussProvision" -> LZF13

bye
malSchauen

Answer 5

Hallo Oliver,
Hallo malSchauen,

erstmal beiden herzlichen Dank, ich wünsche Euch noch einen schönen Sonntag. Ich muss mir das jetzt mal in Ruhe anschauen.

Vielen Dank, Super, mann tifft sich immer zwei Mal im Leben,
das Bier oder Kaffee geht auf mich.

Gruß HWR