VBA Dateinamen der jew. Auswahl ...

Hallo Forum,
sollte bitte eure Hilfe zu folgendem Code haben.
Option Explicit
' Nepumuk-Code ( Herber.de )
'


Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngRow As Long, lngIndex As Long, lngRows As Long
If Data.GetFormat(ccCFFiles) Then
lngRow = ActiveCell.Row
For lngIndex = 1 To Data.Files.Count
Cells(lngRow, 30).Value = Data.Files(lngIndex)
'    Cells(lngRow, 22).Value = Data.Name ' hier soll der jeweilige Dateiname der Selektion in die jew. Zeile spalte 20 eingetrage werden
lngRow = lngRow + 1
Next
End If
End Sub

das ganze ist in einer Userform / Listview integriert / und bildet ein Drag n Drop feld, in das ich selektierte Dateien reinziehe und deren
Dateipfad sich dann in der Excelliste listet ...
Mit Pfad funktioniert es perfekt ... kann ich in einer weitereb Spalte während der jew. Zeilenprozedur den Dateinamen
der selektierten Dateien jew. mi eintragen, in dem Fall in Spalte 20...
vermutlich brauche ich eine entspr. Anweisung auf die ich selber leider nicht komme.
Könntet ihr evtl. helfen, würde mich sehr freuen
Lieben Dank !
Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngRow As Long, lngIndex As Long, lngRows As Long If Data.GetFormat(ccCFFiles) Then lngRow = ActiveCell.Row For lngIndex = 1 To Data.Files.Count Cells(lngRow, 30).Value = Data.Files(lngIndex) Dim Pfad As String, Dateiname As String Pfad = Cells(lngRow, 30).Value Dateiname = Split(Pfad, "\")(UBound(Split(Pfad, "\"))) Cells(lngRow, 22).Value = Dateiname lngRow = lngRow + 1 Next End If 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 D As Object Dim Pfad If Data.GetFormat(ccCFFiles) Then For Each D In Data.Files With ActiveCell.EntireRow Pfad = Split(D, "\") .Cells(30) = D .Cells(22) = Pfad(UBound(Pfad)) ActiveCell.Offset(1, 0).Activate 'eine Zeile tiefer End With Next End If End Sub

Beliebteste Forumthreads (12 Monate)

VBA Dateinamen der jew. Auswahl ...

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Dateinamen der jew. Auswahl ...

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread