Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichniss auslesen, nur Ordner.

Verzeichniss auslesen, nur Ordner.
11.08.2008 11:52:33
Tom
Hallo Leute,
hab gerade ein gedankenblitz was für mich total praktisch ist.
Ich würde gerne in Excel VBA ein Programm schreiben das mit aus einem Verzeichnis: (Auch Netzlaufwerk)
alle Odnernamen auflistet, also in eine Liste einfügt, weil ich da eine auswahl treffen kann.
Spezielle für mich.
Ich will nur die Ordnernamen angezeigt bekommen.
Wenn ich ein Übergeordneten Ordner habe sollen die Untergeordneten Ordnernamen dann in der Nächsten Spalte eingetragen werden.
sprich:
A:
Lustig
B:
Peter
Manuel
Ludwig
Kommentare werden dann selber hinzugefügt.
mfg Tom
Hoff mein Problem ist verständlich.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 12:23:08
Case
Hallo,
folgender Code stammt hier aus dem Forum. Autor ist mir nicht bekannt, aber der macht genau was Du möchtest :-) 

Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim icol As Integer
Public Sub Ordner_Auflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
icol = 0
lRow = 0
GetSubFolders "C:\Temp"
End Sub
Function GetSubFolders(Pfad)
Set FO = FSO.GetFolder(Pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
icol = icol + 1
Cells(lRow, icol) = F.Name
GetSubFolders F.Path
Next
icol = icol - 1
End Function



Servus
Case

Anzeige
AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 12:57:12
Tom
Leute geil.
Genau das was ich gesucht hab.
Perfekt.
thx Case

AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 13:28:00
Tom
Jetzt muss ich doch feststellen, das mein begehren total erfüllt ist, aber das nicht so praktikabel ist.
Besser wäre wenn mir immer der Pfad aufgetrennt ausgegeben würde.
Leider versteh ich das Programm nicht ganz, weil mir die Funktionen nicht bekannt sind.
Ich hoffe es kann mir jemand weiterhelfen.
mfg Tom

AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 14:21:14
Case
Hallo,
was verstehst Du unter "Besser wäre wenn mir immer der Pfad aufgetrennt ausgegeben würde.". Gib mal ein Beispiel, wie es aussehen soll.


Servus
Case


Anzeige
AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 15:04:00
Tom
Also weil ich das alles in eine Liste machen will, ist es besser wenn immer der "Pfad" sag ich jetzt mal dasteht.
In Spalte a also immer Lustig bis ein anderer Unterordner kommt dann immer Meier.
ich geb mal kurz 3 zeilen an.
1: Lustig Peter
2:Lustig Meier
3:Lustig Karl
jetzt kann ich in der Liste nach "Lustig" sortieren und alle Unterordner kommen dann zu Tage.
Wenn ich nur Lustig und dann alle Unterordner nehme, dann kann ich ja über die Liste nicht alle unterordner ansprechen. Das dann unpraktisch und unübersichtlich.
Ich hab mal das Probiert:

str1 = Folder.Path
str1 = Mid(str1, 4)


Fehlt noch vom linken Zeichen bis \ und das links vom \ ausgeben.
mfg Tom

Anzeige
AW: Verzeichniss auslesen, nur Ordner.
11.08.2008 16:50:00
Case
Hallo,
am Besten gehst Du mal Schritt für Schritt mit F8 durch den Code und schaust Dir die Variablen im Lokal-Fenster an. Du musst dann nur eine Zeile ergänzen:

Cells(lRow, icol) = F.ParentFolder.Name & " " & F.Name



Servus
Case

AW: Verzeichniss auslesen, nur Ordner.
12.08.2008 08:38:19
Tom
Du wirst dich wundern, F8 ist mein ständiger Begleiter. Das hab ich schon probiert, leider wurde ich nicht so schlau drauß. Weil unter Verfolgen nichts anezeigt wurde, aber klar weil die Variablen mehrere Eigenschaften haben die ich nicht auf anhieb gesehen hab.
Trotzdem ist das ein wenig zu komplex für mich.

Anzeige
AW: Verzeichniss auslesen, nur Ordner.
12.08.2008 08:52:00
Tom
Jetzt ist der groschen gefallen, super Sache.
Habs kapiert danke.
mfg Tom

300 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5