Funktion hat einen Fehler
Matthias
ich habe letzte Woche schon einmal gepostet und sehr schnell geholfen bekommen. Jetzt habe ich allerdings bemerkt, dass die Funktion einen Fehler hat. Der erste Dateiname im Directory wird nicht in die Tabelle geschrieben, es geht erst mit dem 2. Dateinamen los. Der Zähler x arbeitet korrekt und gibt am Ende den Wert 27 (im Testbeispiel sind 27 Dateien in dem Verzeichnis) zurück.
Hier der Code, der mir freundlicherweise von MichaV zur Verfügung gestellt wurde:
Sub CommandButton1_Click()
Dim Datei As String
Dim x As Long
Dim DateiListe()
Datei = Dir("F:\*.*")
Do While Datei <> ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
Datei = Dir
DateiListe(x) = Datei
Loop
Worksheets("Dateien").Range(Cells(1, 1), Cells(UBound(DateiListe), 1)) = WorksheetFunction.Transpose(DateiListe)
Worksheets("Dateien").Range("C2:C2").Cells(1, 1).Formula = x
End Sub
Ich hätte noch eine Bitte: Der Button zum Einlesen befindet sich auf dem Tabellenblatt "Dateien", die Dateinamen aus dem Verzeichnis sollen aber bitte in das Tabellenblatt "Daten" in die Spalte A ab Zeile 2 geschrieben werden. Bitte seid so lieb und helft mir weiter.
Vielen Dank im Voraus
Matthias Holstein