Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner auslesen

Ordner auslesen
21.10.2007 11:19:00
Tino
Hallo,
gibt es ein Makro, mit dem ich aus einem Verzeichnis
alle Ordner und Unterordner auslesen kann?
Gruss Tino

Das Forum lebt von Rückmeldungen!


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner auslesen
21.10.2007 11:21:00
Josef
Hallo Tino,
was soll ausgelesen werden? (Ordnernamen?, Dateien?)
Wo soll das Ergebnis aufscheinen?
Gruß Sepp

AW: Ordner auslesen
21.10.2007 11:25:07
Tipp
Hi Tino
guckst Du hier in der Online-Recherche (Ordner auslesen) und Du wirst fündig
Grüsse vom Tipp

AW: nur Ordner keine Dateien
21.10.2007 11:31:54
Tino
Hallo Sepp,
möchte nur die Ordner, egal ob Dateien enthalten oder nicht!
Als Rückgabe wäre der komplette Pfad mit Namen für mein vorhaben am aller besten!
Gruss Tino

Das Forum lebt von Rückmeldungen!


Anzeige
AW: nur Ordner keine Dateien
21.10.2007 11:43:11
Josef
Hallo Tino,
der Code listet die Ordner im aktuellen Blatt ab Zeile 1 auf.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim FSO, FO, FU, F
Dim lRow As Long

Sub OrdnerAuflisten()

On Error Resume Next
GMS

Set FSO = CreateObject("Scripting.FileSystemObject")

lRow = 0

GetSubFolders "F:\Temp"

Set FSO = Nothing
GMS True
End Sub

Private Function GetSubFolders(pfad)

Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders

For Each F In FU
    
    lRow = lRow + 1
    
    Cells(lRow, 1) = F.Path
    
    GetSubFolders F.Path
    
Next

End Function

Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    If Modus Then
        .Calculation = lngCalc
    Else
        lngCalc = .Calculation
        .Calculation = xlCalculationManual
    End If
    .Cursor = IIf(Modus, -4143, 2)
    .CutCopyMode = False
End With

End Sub

Gruß Sepp

Anzeige
AW: Danke
21.10.2007 11:58:00
Tino
Hallo Sepp,
funktioniert super!
Danke
Gruss
Tino

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige