ich bin via google auf Sie gestossen und habe folgendes bei Ihnen gefunden:
aus dem Beitrag:
https://www.herber.de/forum/archiv/196to200/t197136.htm
Option Explicit
Sub Dateiliste()
' erstellt von Hajo Ziplies 24.12.02
' Dateiliste für ein Verzeichnis ohne Unterverzeichnisse
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname ""
Cells(I, 1).Value = strVerzeichnis & Dateiname
I = I + 1
Dateiname = Dir
Loop
End Sub
Dieses Makro an sich funktioniert bei mir bestens allerdings hätte ich die Frage ob es Ihnen Möglich wär es für mich ein wenig zu ändern.
Ich bräuchte ein Makro was folgendes kann:
Ich führe das Makro aus und ein Textfeld erscheint und fragt mich welchen Pfad es durchsuchen soll.
Nach eingabe des Pfades wird das Verzeichniss durchsucht und in einer Excel Tabelle ausgegeben.
Meine Dateien sind alle Gleich aufgebaut:
Jahr,Monat,Tag Name.Anwendung
Ich hätte nun gerne das es die Dateinamen splittet.
Ausgabe des Datums in Spalte A und Ausgabe des Namens in Spalte B und Ausgabe der Dateiendung in Spalte C.
Ist sowas realisierbar?
Vielen Dank für Ihre Zeit und Mühe.
Mit freundlichen Grüßen
Christopher Rittgarn