Hallo zusammmen,

mit folgenden Code öffne ich Dateien in einem Ordner und kopiere anschliessend den Inhalt in eine andere Datei. Der Haken ist, es sind nicht alle 52 Dateien angelegt sondern mit jeder abgeschlossenen Kalenderwoche kommt eine dazu. Jetzt bekomme ich immer die Fehlermeldung "Leider konnte "" nicht gefunden werden etc." 

Kann mir jemand sagen wie ich das so umbaue, dass er automatisch einfach das einlesen beendet sobald er die letzte mögliche Datei hat? Ich schätze der Fehler liegt in der For-Next Wahl meinerseits. Leider bekomme ich es mit Do While nicht hin.

'Prozedur
Public Sub Import()
    'Deklaration Variablen
    Dim strPfadDateiQuelle As String        'adresse zb. C:\Ordner\neuer....
    Dim strPfadDateiZiel As String          'adresse zb. C:\Ordner\neuer....
    Dim strNameDateiAktuell As String       'Dateiname zb. win.xlsx
    Dim dateDatumQuelle As Date             'Variable zur Verwendung eines Datums zb.: yyyy-mm-dd
    Dim lngZaehlerZeileQuelle As Long       'Zähler für Zeile
    Dim lngZaehlerSpalteQuelle As Long      'zähler für spalte
    Dim lngZaehlerZeileZiel As Long         'Zähler für Zeile
    Dim lngZaehlerSpalteZiel As Long        'zähler für spalte
    Dim lngKWwoche As Long
    
'Code
    strPfadDateiQuelle = "O:\Reporting\1st_CS\Team_Wittstock\02_Auswertung_CCSI\"
    strPfadDateiZiel = "H:\christianmüller\Projekte\KPI-Übersicht\"

'Schleife Datei
    lngZaehlerZeileZiel = 2
    lngZaehlerSpalteZiel = 1
    Application.ScreenUpdating = False  'Bildschirm aktualisierung während der Prozess läuft ausgeschalten (flackern verhindert)
    lngKWwoche = Format(Date, "WW")
    For lngKWwoche = 1 To 52 Step 1       'FOR000
        strNameDateiAktuell = "AuswCCSI_KW2017-" & Format(lngKWwoche, "00") & "_Team_Wittstock" & ".xlsx"
        Workbooks.Open strPfadDateiQuelle & strNameDateiAktuell
        
        'Schleife Zeilen
        lngZaehlerZeileQuelle = 2
        lngZaehlerSpalteQuelle = 1
        Do Until (Workbooks(strNameDateiAktuell).Worksheets("AuswMA").Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle) = "") 'DO000
           
            'Schleife Spalten
            Do Until (Workbooks(strNameDateiAktuell).Worksheets("AuswMA").Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle) = "") 'DO001
                ThisWorkbook.Worksheets("Rohdaten CCSI").Cells(lngZaehlerZeileZiel, lngZaehlerSpalteZiel) = _
                    Workbooks(strNameDateiAktuell).Worksheets("AuswMA").Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle)
                lngZaehlerSpalteZiel = lngZaehlerSpalteZiel + 1
                lngZaehlerSpalteQuelle = lngZaehlerSpalteQuelle + 1
            Loop 'DO001
            
            lngZaehlerZeileZiel = lngZaehlerZeileZiel + 1
            lngZaehlerZeileQuelle = lngZaehlerZeileQuelle + 1
            lngZaehlerSpalteZiel = 1
            lngZaehlerSpalteQuelle = 1
        Loop 'DO000
        
        Workbooks(strNameDateiAktuell).Close
        
    Next 'FOR000
    Application.ScreenUpdating = True ' Bildschirm aktualisieren
End Sub