Dim sFilenames As String
Dim I As Integer
 
sFilename = ""
With File1
  For I = 0 To .ListCount - 1
    If .Selected() Then
      <font color=green>' Trennzeichen</font>
      If sFilenames <> "" Then sFilenames = sFilenames & ";"
      sFilenames = sFilenames & .List(I)
    End If
  Next I
End With
 
<font color=green>' Ab in die Zwischenablage</font>
Clipboard.Clear
Clipboard.SetText sFilenames