Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe folgendes Problem das ich nicht bei jeder datei den namen bzw Ort angeben möchte sondern nur sagen möchte in dem ordner alle datein ... bis keine mehr da ist...das hab ich dann auch gefunden hoffe das ist richtig... With Application.FileSearch .LookIn = "C:\xxx\xxx\" .Filename = "*.xls" If .Execute() > 0 Then 'MsgBox "Es wurde(n) " & .FoundFiles.Count & _ " Datei(en) gefunden." For i = 1 To .FoundFiles.Count For s = 1 To NeueStationen ++++Hier weiß ich jetzt nicht was ich hinschreiben soll++++ Next s Next i Else MsgBox "Es wurden keine Dateien gefunden." End If Nun was kann da hin kommen damit dort der dateiname in einer bestimmten Zeile + Spalte steht? Gruß Kennyger

Hi,

versuche es mit diesem Code

Sub arbeitsmappen_auflisten()
    Dim strVerzeichnis As String
    Dim strDatei As String
    Dim strTyp As String
    Dim strDateiname As String
    Dim loZeile As Long
    strTyp = "*.xls"
    Application.ScreenUpdating = False
    strVerzeichnis = "C:\Dein_Verzeichnis\"
    strDateiname = Dir(strVerzeichnis & strTyp)
    loZeile = 6
    With ThisWorkbook.Worksheets("Tabelle1")
        Do While strDateiname <> ""
            .Cells(loZeile, 1) = strDateiname
            strDateiname = Dir
            loZeile = loZeile + 1
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin

HuHu,Karin ....


Kannste nur kurz für leute die nicht ganz durchsteigen nochmal erklären was das bedeutet also paar sachen verstehe ich aber das hier nicht mehr :

loZeile = 6
With ThisWorkbook.Worksheets("Tabelle1")
Do While strDateiname <> ""
.Cells(loZeile, 1) = strDateiname
strDateiname = Dir
loZeile = loZeile + 1
Loop
End With
Application.ScreenUpdating = True
End Sub

Thx & MfG Kennyger

Hi,

loZeile = 6 ' Startzeile ab der die Namen eingetragen werden sollen
With ThisWorkbook.Worksheets("Tabelle1") ' in der Tabelle 1
Do While strDateiname <> "" ' mache so lange bis die letzte Datei durchlaufen ist
.Cells(loZeile, 1) = strDateiname ' schreibe in Spalte A betreffende Zeile den Dateinamen
strDateiname = Dir ' weise den nächsten Dateinamen zu
loZeile = loZeile + 1 ' erhähe den Zeilenzähler um 1
Loop ' Ende der Do...Loop Schleife
End With ' Ende der With-Anweisung
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein

Bis später,
Karin

• Mehrere Dateien öffnen ohne den Dateinamen angeben zu müssen!