Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ordnerinhalt als xls-tabelle

ordnerinhalt als xls-tabelle
23.04.2008 15:38:00
patrick
hi,
ich hab auf einer cd etwa 2000 kurzvideos (werbevideos für die uni) und bräuchte die namen der videos in einem excel-blatt.
weiß das vlt ein geschätztes forums-mietglied?
vielen dank.
patrick

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

Betreff
Datum
Anwender
Anzeige
doppelt
23.04.2008 15:42:00
doppelt

AW: ordnerinhalt als xls-tabelle
23.04.2008 16:09:00
Ptonka
Hallo Patrick,
versuche es mal mit diesem Code, den Du im VBA-Editor als Modul einfügst:

Private Sub DateiListe()
Dim Datei           As String
Dim x               As Long
Dim DateiListe()
Pfad = Application.InputBox("Geben Sie den Pfadnamen ohne endenden Slash (\) ein:")
On Error GoTo weiter
Datei = Dir(Pfad & "\*.*")
Do While Datei  ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
Datei = Dir
DateiListe(x) = Datei
Loop
Worksheets("Tabelle1").Range(Cells(1, 1), Cells(UBound(DateiListe), 1)) = WorksheetFunction. _
Transpose(DateiListe)
GoTo schluss
weiter:
MsgBox "Das gesuchte Verzeichnis existiert nicht!"
schluss:
End Sub


Gruß,
Jochen

Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige