Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordnernamen auflisten

Forumthread: Ordnernamen auflisten

Ordnernamen auflisten
steffen
Hallo in die Runde,
ich habe in der Recherche folgenden Code gefunden:
Sub ShowFolderName()
Dim FSyObjekt As Object, FoObjekt As Object
Set FSyObjekt = CreateObject("Scripting.FileSystemObject")
Set FoObjekt = FSyObjekt.GetFolder("D:\Eigene Dateien\Test")
MsgBox FoObjekt.Name
End Sub
Ich möchte gern eine Routine drin haben, die nacheinander alle in TEST befindlichen Ordnernamen ausgibt.
Gruß
Steffen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ordnernamen auflisten
18.06.2010 14:24:58
chris
Hallo,
Excel Hilfe bietet auch manches.
Hoffe ich konnte helfen.
Sub ttes()
' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
Pfad1 = "c:\test\"    ' Pfad setzen.
Name1 = Dir(Pfad1, vbDirectory)    ' Ersten Eintrag abrufen.
Do While Name1  ""    ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1  "." And Name1  ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
MsgBox Name1    ' Eintrag nur anzeigen, wenn es sich
End If    ' um ein Verzeichnis handelt.
End If
Name1 = Dir    ' Nächsten Eintrag abrufen.
Loop
End Sub
gruß Chris
Anzeige
Supi
18.06.2010 14:44:00
steffen
Hallo Chris,
danke funzt tadellos. Genau sowas habe ich gesucht.
Gruß Steffen
;

Forumthreads zu verwandten Themen

Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Ordnername
Benedikt

Guten Abend zusammen
Nachfolgende Formeln geben den Wert hhhhhhh aus nachfolgendem Dateipfad in ein Tabellenblatt.
Sobald aber der Name länger oder kürzer ist haut dass nicht.
Kann man die Länge des Namen irgendwie variabel gestalten?
=ZELLE("Dateiname")
= TEIL(E13;23;FINDEN...
04.05.2009 19:26:54
Thread-ID: 1072882
3 Beiträge
Anzeige
Ordnernamen auslesen mit VBA
Franz

Hallo Fachleute,
ich hab gestern mit Eurer Hilfe einen Code zum Auflisten von Dateien im aktuellen Ordner verfeinert:
Sub auflisten() Dim iCounter As Integer Dim sPath As String sPath = ThisWorkbook.Path Columns("B:B").ClearContents With Application.FileSearch .NewSearch '.FileType = ms...
28.10.2009 09:40:03
Thread-ID: 1112692
8 Beiträge
Ordnernamen auslesen - hänge fest
Andreas

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...
09.11.2009 10:55:46
Thread-ID: 1115468
6 Beiträge
Ordnernamen eines bestimmten Pfades (ohne Subfolde
Peter

Guten Tag
Mit untenstehendem Code liste ich mir alle Dateinamen auf, welche am gleichen Ordner abgelegt sind, wie die Datei, in welchem der Code steckt.
Nun möchte ich anstelle der Dateinamen alle Ordner (ohne Unterordner) die im entsprechenden Ordner abgelegt sind, ausgeben.
Was mu...
23.09.2010 08:11:06
Thread-ID: 1179015
3 Beiträge
Ordnernamen (teileweise) in Bildnamen übernehmen
Lemmi

Hallo zusammen,
ich habe eine Ordnerstruktur mit Unterverzeichnissen in den thematisch Bilder abgelegt sind. Diese sollen eine Identifikations- Nr. erhalten.
Die Identifikationsnummer ist sechstellig.
Beispiel:
Ordner: Projekt ABC
U-Ordner1: 01_Haus
01_001 Bild1 Datum...
15.11.2012 15:24:25
Thread-ID: 1286840
13 Beiträge
Ordnernamen auflisten
Franz

Hallo zusammen,
ich bin auf der Suche nach einem Makro, was zu einem Ordner - den ich in Excel vorgebe - die Unterordner in Excel aufliste.
Beispiel: Ordner: P:\Privat
Hier bestehen nun zwei Unterordner:
P:\Privat\Dokumente\Excel
P:\Privat\Tabellen
Aufgelistet werden müs...
18.11.2012 18:39:42
Thread-ID: 1287198
6 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Ordnernamen einlesen, in Tabelle kopieren
dieter
Hey all,
Ich habe ein kleines Problem damit das ich zwar Ordnernamen einlesen und diese dann auch in eine Tabelle kopieren kann, aber ich bin gezwungen nur den in dem Vba gesetzten Laufwerksbuchstaben zu nehmen. Ich möchte aber gerne mit der Auswahl variabel sein.
Kann könnte mir da einer b...
18.10.2014 18:52:35
Thread-ID: 1387340
6 Beiträge
Anzeige
Ordnernamen einlesen
Ludmila

Guten Morgen,
wer kann mir helfen die Ordnernamen eines Verzeichnisses in ein UF ComboBox einzulesen.(Nur die Namen)
Mein Code funktioniert nicht.
Danke!
Gruß, Ludmila
Private Sub cmdOrdnerEinlesen_Click() Dim objFSO As Object Dim objFolder As Object Dim sPfad As String Dim...
06.08.2015 08:05:27
Thread-ID: 1440627
5 Beiträge
Ordnername aus Name entfernen
Thomas

Hallo Excelfreunde,
ich habe ein super Makro gefunden.
Mit dem kann man das aktuelle Tabellenblatt als Mail versenden.
Es hat nur noch ein schönheitsfehler der ordnername steht mit im Dateiname.
Kann jemand das Makro so ändern das nur der Blattname benutzt wird?
pdfName2 = A...
04.10.2015 14:36:59
Thread-ID: 1450699
3 Beiträge
Ordnername einlesen
Peter

Grüezzi Zusammmen
Ich möchte mit einem Makro einen Dialog öffnen, mit dem ich einen Ordnernamen (Pfad) einlesen kann.
Bei diesem Dialog möchte ich das Start-Directory angeben können. zB "Computer"
Auch NetzwerkOrdner "\\Domain..."
Leider finde ich im Dschungel des Internet nicht...
30.03.2017 15:25:35
Thread-ID: 1550355
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige