Makro funktioniert nicht
11.02.2022 15:28:40
Vasko
ich habe hier ein Makro, mit dem ich gerne Dateinamen aus einem Ordner einfügen möchte.
Wichtig wäre es wie bei dem Makro vorgesehen, die Namen ab einer aktiven Zelle einzufügen.
Leider werden die Dateinamen nicht eingefügt und mein ach so schmales Wissen reicht nicht aus.
Sub Dateien()
'Update 20140513
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)
Set xFolders = ActiveSheet.xFSO.GetFolder(PicList(lLoop), msoFalse, msoCTrue)
xRowIndex = xRowIndex + 1
Next
End If
End Sub
Anzeige