VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ordnernamen eines Verzeichnisses in Zelle einfügen

Gruppe

Matrix

Bereich

Benutzerdefiniert

Thema

Ordnernamen eines Verzeichnisses in Zelle einfügen

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