Dateien aus Ordner auflisten

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

[vba]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
[/vba]

Excel Community replied 2 months, 2 weeks ago 1 Member · 0 Replies

0 Replies

Sorry, there were no replies found.