Thema Datum  Von Nutzer Rating
Antwort
Rot Dynamische Liste mit Ordnerinhalt abgleichen
 06.08.2020 09:44:59 Tom
NotSolved
06.08.2020 12:59:21 Gast63606
NotSolved
06.08.2020 15:11:25 Tom
NotSolved
06.08.2020 15:24:05 Gast63606
NotSolved
06.08.2020 15:20:00 Gast63606
*****
Solved

Ansicht des Beitrags:
Von:
Tom		 Datum:
06.08.2020 09:44:59		 Views:
1201		 Rating:
     
Antwort:
  Ja
Thema:
Dynamische Liste mit Ordnerinhalt abgleichen

Hallo zusammen,

 

ich habe ein Probem beim Füllen eines Array mit einer Schleife. Ich will eine dynamische Liste (Dateinamen) aus Excel (ändert sich in der Länge)  in ein Array laden um dies dann anschließend mit einem Ordnerinhalt abzugleichen. Sofern Dateinamen Fehlen sollen diese dann in einer MsgBox anezigt werden.

 

Mein Code sieht folgendermaßen aus: 

 

Sub text()

    Dim Arr() As String
    Dim zeile As Integer
    Dim y As Integer
    Dim Path As String
    Dim File As String
    Dim Fehlt As String
    Dim Datei As String
    
    Path = ThisWorkbook.Path & "\Tabellen\TXT-Abzüge vom SAP hier abspeichern"
    
    With Sheets("File_Download")
    
    zeile = 7
    
    Do
    
        Datei = .Cells(zeile, 10).Value
        Arr() = Datei
    
        zeile = zeile + 1
    
    Loop Until IsEmpty(.Cells(zeile, 10).Value)
    
    For y = UBound(Arr) To LBound(Arr)
    
        File = Dir(Path & Arr(y), vbDirectory)
        If File = "" Then
            Fehlt = Fehlt & Chr(10) & "- " & File
        End If
    
    Next y
    
    If Not Fehlt = "" Then
        MsgBox ("Folgende Files sind nicht im Zielordner vorhanden:" & Fehlt)
    End If
    
    End With

End Sub

 

 

Vllt. kann mir ja jem. weiterhelfen :-)

 

VG

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
Rot Dynamische Liste mit Ordnerinhalt abgleichen
 06.08.2020 09:44:59 Tom
NotSolved
06.08.2020 12:59:21 Gast63606
NotSolved
06.08.2020 15:11:25 Tom
NotSolved
06.08.2020 15:24:05 Gast63606
NotSolved
06.08.2020 15:20:00 Gast63606
*****
Solved