Makro liest ganzen Pfad aus
15.02.2022 09:40:02
Vasko
ich habe schon einige probiert, aber halt keine Ahnung... Ich habe ein funktionierendes Makro, das eigentlich alles macht was ich brauche.
Nämlich alle Dateien, die ich in einem Ordner markiere, in eine markierte Zelle untereinander einfügt.
Mein Problem es wird der ganze Pfad ausgelesen und ich hätte gerne nur den Dateinamen ausgelesen.
Vielen herzlichen Dank für eure Hilfe.
Vasko
Sub Dateien3()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim xFSO As Object
Dim xFolder As Object
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Rng.Value = PicList(lLoop)
Set xFolders = ActiveSheet.xFSO.GetFolder(PicList(lLoop), msoFalse, msoCTrue)
xRowIndex = xRowIndex + 1
Next
End If
End Sub