Drag&Drop Dateiauswahl

[Philipp1344]

Hallo in die Runde,

folgender Code erstellt mir bei Click auf entspr. Button ein Drag&Drop-Fenster in das ich dann Excel-Files Draggen und droppen kann und mir deren Pfad in meiner Excel anzeigt.
Das funktioniert super, wenn ich meine Files einzeln reinziehe, sobald ich aber mehrere markiere und rüberziehe, fügt es mir x-mal (x= Anzahl Files) den gleichen Pfad ein, genauer gesagt den Pfad letzten ausgewählten Datei...

Kann mir einer mit einer Anpassung weiterhelfen? Danke.

Code:

Option Explicit

Const vbDropEffectNone = 0
Const vbDropEffectCopy = 1
Const vbDropEffectMove = 2

Const vbCFFiles = 15
Private Sub bAbbrechen_Click()
  Unload Me
End Sub
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Long
  If Data.GetFormat(vbCFFiles) Then
     s = ActiveCell.Column
     z = Cells(ActiveSheet.Rows.Count, s).End(xlUp).Row
     If Not (IsEmpty(Cells(z, s))) Then z = z + 1
     For i = 1 To Data.Files.Count
         ActiveSheet.Cells(z, s).Hyperlinks.Add ActiveSheet.Cells(z, s), Data.Files(1)
         z = z + 1
     Next
  End If
End Sub
Private Sub ListView1_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
   Effect = vbDropEffectCopy
End Sub

Private Sub UserForm_Click()

End Sub

Grüße Philipp

[schauan]

Hallo Phillipp,

kann ich mit Deinem geposteten Code nicht nachvollziehen. Wenn ich eine Datei in den Listview ziehe, wird mir selbige sofort geöffnet. Es erscheint kein Hyperlink. Gleiches Verhalten auch beim Ziehen mehrerer Dateien.