title image


Smiley UserForm ListBox
Guten Abend!



Mit unten stehendem Code fülle ich die ListBox1 einer UserForm.



Private Sub cbfüllen_Click()

Dim My_ArrayA As Variant

My_ArrayA = Workbooks("SVA Heilbehelfe und Hilfsmittelkatalog.xls").Worksheets("Tabelle2").Range("$C$1:$C$40")

ListBox1.List = My_ArrayA

End Sub



Mit



Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox3.Text = ListBox1.Value

End Sub



trage ich einen ausgewählten Text in der ListBox1 in die TextBox3 ein.



Ich möchte jedoch erreichen, dass bei der Auswahl in der Listbox nicht der Text aus der Spalte C sondern der Text daneben aus der Spalte D in die Textbox eingetragen wird.

Beispiel: Wird in der ListBox der Eintrag A (C1) angeklickt, dann soll in der Textbox der Wert von D1 eingetragen werden.



Wie würde hier bitte eine VBA Lösung aussehen?



Danke



Josef

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: