Thema: Ordnernamen eines Verzeichnisses in Zelle einfügen

Home

Gruppe

Matrix

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

Arrays und benutzerdefinierte Datentypen	Aus Matrix Spalten auslesen, die best. Wert haben
Matrix in VBA	Per Matrix Formel filtern
MAX wenn mit Indirekt in Matrixformel	Matrixformel mit Summenfunktion
Matrixformel legt Excel Lahm	Vergleich innerhalb einer matrix
Wert in Matrix finden	Werte aus Matrix in 1 Spalte bringen
Einzelne Spalten einer Matrix auswählen	Festen Wert vor Matrixformel ausgeben
Benutzerdefinierte Funktion	Benutzerdefinierte Gültigkeitsprüfung
Mehrere Suchkriterien in Matrix	Matrix Berechnung
Wort in Matrix suchen und Zellenwert daneben ausge	Summe / Wenn Matrix i.V.m Teilergebnis
Benutzerdefinierte Funktion in Open Office	matrixformel gesucht
Matrixfreunde gesucht :?	Daten auswerten mit Array, Pivot, Matrixformel....
Sverweis: Matrix definieren	Anzahl unterschiedl. Werte mit Matrixformel
Matrixformel mit Indirekt() oder welche Alternativ	Matrix-Erstellung mit Excel - Erneut Hilfe!?
Benutzerdefinierte Gültigkeitsprüfung	Daten in Matrix suchen und in Matrix schreiben
Matrix-Erstellung mit Excel - Hilfe!?	Benutzerdefinierte Symbolleiste transferieren?
Co-Occurance Matrix erstellen mit Excel?	Benutzerdefinierte Fußzeile
Matrix erstellen mit Excel	Data Validation benutzerdefiniert?
Matrix / Korridor berechnen	SVerweis mit Tabellename (matrix) als Variable
Benutzerdefinierte Ansicht nach Blattschutz	Benutzerdefinierte Ansichten trotz Blattschutz
Matrix Durchsuchen	WENN-Formel mit zwei Bedingungen in Matrixtabelle
Matrix Formel mit Textfeldern	Benutzerdefinierte Gültigkeitsprüfung
Problem mit Kopieren aus Matrix	Excel Matrix Spalten/Zeilen
benutzerdefinierte Schaltfläche verankern	Aus Matrix auslesen
Tabellenmatrix zusammenfassen	Aus Tabelle Matrix erstellen
Mit Matrixformel bis 1 zählen