ich hoffe, ihr könnt mir weiterhelfen. Ich möchte eine Excel-Vorlage erstellen, bei der man nach dem Öffnen durch anklicken eines Buttons im Tabellenblatt "Begleitschein" aus einem vordefinierten Verzeichnis (ist immer das selbe) alle darin enthaltenen Dateinamen lesen und in das Tabellenblatt "Dateien" in der Spalte A zeilenweise untereinander schreiben kann.
Wenn ihr mir da weiterhelfen könnt, müsste ich eigentlich alles andere selbst schaffen, aber mit dem Einlesen habe ich Probleme.
Es gibt hier im Forum eine ähnliche Frage, in der eine Funktion als Lösung vorgeschlagen wurde. Ich habe mit dieser Funktion "herumgespielt", aber da ich kaum Kenntnisse von Makros und VBA habe, weiss ich leider nicht, was genau ich da machen muss.
Die Funktion lautet wie folgt:
Private Sub DateiListe()
Dim Datei As String
Dim x As Long
Dim DateiListe()
Datei = Dir("E:\Excel 2000\Beispiele\*.*")
Do While Datei <> ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
Datei = Dir
DateiListe(x) = Datei
Loop
'Worksheets("Tabelle1").ListBox1.List = DateiListe
End Sub
Bitte helft mir, es wäre für mich sehr wichtig.
Vielen Dank im Voraus
Matthias