Hallo
Ich lese 6 spalten meiner tabelle in listbox1 ein bei doppelklick auf eine zeile in der listbox möchte ich diese in tabelle1 beginnend von zelle a1 bis a6 eintragen so das dann wieder 6 spalten befüllt sind.
danke
in etwa so:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lz%, i%
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To 5
Cells(lz, i + 1) = Me.ListBox1.List(ListBox1.ListIndex, i)
Next
End Sub
gruß Herbert