Ordneransicht Excel

[Rabe]

Hi André,

bei mir wird da nur die erste Unterverzeichnisebene geöffnet und die Dateien aufgelistet, von der nächsten Ebene wird nur der Verzeichnisname fett angezeigt.

[schauan]

Hallo Ralf,

hast Du mal nach den Gliederungssymbolen geschaut?
Noch wichtiger ist die Konstante ShowLevels über dem aufrufenden Sub. Damit kannst Du die Verzeichnistiefe einschränken. Wenn Du alle willst, und nicht weißt, wie viele es gibt, dann  nimm 100

Wenn keine Dateien gelistet werden sollen, kann man diesen codeteil entfernen:

Code:

.        'Schleife ueber alle Verzeichnisse
       For maxd = 0 To UBound(arrDirEntries)
           'Attribut des Eintrags auslesen, ausser in archive (32) und hoeher, encrypted/compressed
           at = GetAttr(pm_Path & arrDirEntries(maxd)) And 31
           'Zelle Formatieren
           If (at And vbHidden) = vbHidden Then ActiveCell.Font.Italic = True
           'Dateieintrag ggf. in Zelle schreiben und naechste Zelle aktivieren
           If (at And vbDirectory) = 0 Then
               ActiveCell.Value = arrDirEntries(maxd)
               ActiveCell.Offset(1, 0).Activate
           'Ende Dateieintrag ggf. in Zelle schreiben und naechste Zelle aktivieren
           End If
       'Ende Schleife ueber alle Verzeichnisse
       Next

Man könnte den Code natürlich auch parametrisieren, um die Dateien auszuschließen.

[Rabe]

Hi André,

hast Du mal nach den Gliederungssymbolen geschaut?
Noch wichtiger ist die Konstante ShowLevels über dem aufrufenden Sub. Damit kannst Du die Verzeichnistiefe einschränken. Wenn Du alle willst, und nicht weißt, wie viele es gibt, dann  nimm 100

ja, natürlich.

Aber die Konstante hatte ich erst mal nicht angefasst!

Nun passt es!