hi Roger
ich verwende so einen code.
damit kopiere ich aus einer listbox in die andere listbox mp3 links.
und die hyperlinks sind vorhanden.
du mußt nur die tabellen namen und spalten anpassen.bzw.die listboxen!
Private Sub CommandButton1_Click()
Sheets("Tabelle3").Activate
k = 6
For i = 0 To UserForm1.ListBox3.ListCount - 1
If UserForm1.ListBox3.Selected(i) = True Then
For k = 6 To 8
k = k + 1
link = ListBox3.List(i)
j = Cells(Rows.Count, k).End(xlUp).Row + 1
Worksheets("tabelle1").Cells(i + 1, k - 4).Copy
Worksheets("tabelle3").Activate
Cells(j, k).Activate
ActiveCell.PasteSpecial
Next k
End If
Next i
End Sub
viel spass
ivan