Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen in Sheet

Forumthread: Dateinamen in Sheet

Dateinamen in Sheet
24.01.2008 10:16:00
Florian
Hi,
ich habe einen Ordner, in dem 10-20 Exceldateien liegen. Wie kann ich alle Dateinamen in ein Sheet bekommen?
Danke!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen in Sheet
24.01.2008 10:18:00
Fred
Hi,
hast du schon entdeckt, dass das Forum eine Recherche/Archiv hat?
Zu deiner Frage findest 168 Treffer.
mfg Fred

ALLE Dateinamen eines Ordners einlesen?
24.01.2008 10:38:03
Florian
Ähnliche Makros hab ich schon angesehen, ich komme aber mit der Dir()-Funktion nicht zurecht. Ich will alle Dateinamen in einem File haben. Mit Dir() bekomm ich nur den ersten.

Anzeige
AW: ALLE Dateinamen eines Ordners einlesen?
24.01.2008 10:52:25
Waven
Hallo Florian
Erstelle ein Excel-Datei im übergeordneten Ordner und füge folgendes Makro ein.

Sub Dateinamen_auslesen()
Dim fso As Object, oFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each oFile In fso.GetFolder(ThisWorkbook.Path & "\Dein Unterordner").Files 'Dein  _
Unterordner mit dem Ordnername ersetzen
If LCase(Right(oFile.Name, 4)) = ".xls" Then
If Range("A1") = "" Then
Range("A1").Select
ElseIf Range("A2") = "" Then
Range("A2").Select
Else
lastrow = ActiveSheet.UsedRange.Rows.Address
Range(lastrow).Select
Range("A:A").End(xlDown).Select
VZeile = ActiveCell.Row
Cells(VZeile + 1, 1).Activate
End If
ActiveCell.Value = oFile.Name
End If
Next
End Sub


Gruss
Waven

Anzeige
Danke, funktioniert oT
24.01.2008 14:50:04
Florian
--
;

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