Hallo Excel Freunde,
heute morgen dachte ich mir: „Hmm, bei den großen Datenmengen die sich so ansammeln, wäre es mal nett, einen kleinen Katalog eines Verzeichnisses auf der Festplatte anzulegen…“ Ordnername und dessen Größe würde mir reichen. So weit die Theorie. Das mir das so die Laune versauen kann, hat mich selbst erschrocken.
Ich war im Forum und habe eine paar Codes gefunden die ich zu kombiniren versuchte, bin nun aber kläglich an einem vermutlich marginalen Problem gescheitert und komme nicht weiter. Es macht einfach nicht klick im Kopf.
In der beigefügten Datei gibt es ein Modul „modOrdnernamen“, darin den Code „Sub OrdnerNamenAuslesen()“
Bei Aktivierung dieses Codes kommt ein Verzeichnis Auswahldialog. Wenn ich dort das Verzeichnis „Meine Dokumente“ wähle, soll mir der Code die Namen aller Unterverzeichnisse auflisten. Bei „Meine Dokumente“ u.a.
„My Music“
„My Pictures“
„Office“
Die Auflistung/ Erstellung auf ein Blatt müßte ich hinbekommen. Um den Code zu verstehen, habe ich die Ausgabe der Ordnernamen erst einmal nur über ein Debug.Print vorgesehen.
Aber der Code läuft nicht durch und ich weiß nicht woran es liegt.
https://www.herber.de/bbs/user/65678.xls
Ich würde mich sehr, sehr freuen, wenn jemand aus dem Forum einen kurzen Blick darauf werfen könnte. Bitte.
Vielen Dank und Grüße,
Andreas Hanisch