Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Function DirNames(sPath As String) As Variant
   Dim arr() As String
   Dim iCounter As Integer
   With Application.FileSearch
      .LookIn = sPath
      .Execute
      ReDim arr(1 To .FoundFiles.Count)
      For iCounter = 1 To .FoundFiles.Count
         arr(iCounter) = .FoundFiles(iCounter)
      Next iCounter
   End With
   DirNames = arr
End Function

    

Beiträge aus dem Excel-Forum zu den Themen Matrix und Benutzerdefiniert