Dateien aus Ordner auflisten

Posted by Excel Community on 6. September 2024 at 21:31



Private Sub DateienAuflisten()

    Dim Bereich As Range

    Dim Zelle As Range

    Dim aktuelleZeile As Long

    Dim ordnerPfad As String

    Dim dateiName As String

    Dim initialOrdner As String

    On Error GoTo ErrorHandler ' Fehlerbehandlung

    ' Der Anfangsordner wird gesetzt

    initialOrdner = Environ("UserProfile") & "\Desktop\"

    ' Ordnerauswahl-Dialog öffnen

    With Application.FileDialog(msoFileDialogFolderPicker)

        .InitialFileName = Application.DefaultFilePath & "\"

        .Title = "Ordnerauswahl"

        .InitialFileName = initialOrdner

        .ButtonName = "Auswahl"

        ' Wenn der Benutzer einen Ordner auswählt

        If .Show <> 0 Then

            ordnerPfad = .SelectedItems(1) & "\"

            ' Spaltenüberschrift festlegen

            Cells(1, 1).Value = "Dateien"

            Cells(1, 1).Font.Bold = True

            ' Zeile für die erste Datei festlegen

            aktuelleZeile = 2 ' Die erste Zeile nach der Überschrift

            ' Dateien im Ordner auflisten

            dateiName = Dir(ordnerPfad, vbNormal)

            Do While dateiName <> ""

                Cells(aktuelleZeile, 1).Value = dateiName

                aktuelleZeile = aktuelleZeile + 1

                dateiName = Dir

            Loop

        End If

    End With

    ' Spalte A automatisch anpassen

    Columns("A:A").EntireColumn.AutoFit

    ' Fehlerbehandlung deaktivieren

    On Error GoTo 0

    Exit Sub

ErrorHandler:

    MsgBox "Es ist ein Fehler aufgetreten: " & Err.Description, vbExclamation, "Fehler"

End Sub

Excel Community replied 4 months, 1 week aktiv. 1 Member · 0 Replies

0 Replies

Sorry, there were no replies found.