Thema Datum  Von Nutzer Rating
Antwort
22.02.2022 16:56:11 Chris
NotSolved
22.02.2022 17:38:39 ralf_b
NotSolved
23.02.2022 08:27:09 Gast81127
NotSolved
Blau Dateiliste + Pfad
 23.02.2022 20:17:18 ralf_b
NotSolved
02.03.2022 16:38:08 Chris
NotSolved
02.03.2022 16:46:54 Gast65380
NotSolved
23.02.2022 09:12:23 Mase
NotSolved
23.02.2022 12:01:18 Chris
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
23.02.2022 20:17:18		 Views:
507		 Rating:
     
Antwort:
  Ja
Thema:
Dateiliste + Pfad

und warum zweimal das Gleiche?  Ich hab dir den Code zusammengefasst. Ungetestet!

Sub test()

    'In das Tabellenblatt Dateinamen gehen   'Warum? 
   ' Worksheets("Dateinamen").Activate       'Warum?
    
    'Fuegt Liste des ausgewaehlten Ordners ein
    Dim xRow   As Long
    Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "C:\"
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
        .InitialFileName = InitialFoldr$
        .InitialView = msoFileDialogViewThumbnail
        .ButtonName = "Auswählen"
        
        If .Show = -1 Then
            If .SelectedItems.Count <> 0 Then
                xDirect$ = .SelectedItems(1) & "\"
                xFname$ = Dir(xDirect$, 7)
                Do While xFname$ <> ""
                    Worksheets("Dateinamen").Cells(1, 1 + xRow) = xFname$
                    xRow = xRow + 1
                    xFname$ = Dir
                Loop
            End If
        End If
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2022 16:56:11 Chris
NotSolved
22.02.2022 17:38:39 ralf_b
NotSolved
23.02.2022 08:27:09 Gast81127
NotSolved
Blau Dateiliste + Pfad
 23.02.2022 20:17:18 ralf_b
NotSolved
02.03.2022 16:38:08 Chris
NotSolved
02.03.2022 16:46:54 Gast65380
NotSolved
23.02.2022 09:12:23 Mase
NotSolved
23.02.2022 12:01:18 Chris
NotSolved