Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ordnernamen eines Verzeichnisses in Zelle einfügen

Gruppe

Benutzerdefiniert

Problem

Wie kann ich die Ordnernamen eines in einer Zelle stehenden Verzeichnisnamens über eine benutzerdefinierte Funktion ermitteln?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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