Werte aus Listbox in Tabelle kopieren
12.05.2005 15:09:34
OceanAmerica
habe eine Listbox, die nach einer Suche, gefundene Werte anzeigt. Die Suchbegriffe werden in Spalte 1 der Tabelle 1 gesucht und es werden dann die Werte der Spalten A-J (also 10 Werte)in der Listbox angezeigt. Habe nun folgenden Code gefunden um einzelne Werte, die dann in der Listbox stehen, mit einem Doppelklick wiederum in Tabelle 3 zu kopieren.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("Tabelle3")
.Cells(.Range("A65536").End(xlUp).Row + 1, 10) = ListBox1.List(ListBox1.ListIndex)
End With
End Sub
Leider wird aber immer nur einer der 10 Werte, nämlich der Wert der in Spalte A steht, in Tabelle 3 kopiert. Wie bekommt man es hin, das alle 10 Werte ín die Tabelle 3, in die Spalten A-J kopiert werden ?
Wäre toll wenn ihr mir helfen könnt.
MfG OceanAmerica