14.11.2018, 12:40
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.
Grüße Philipp
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