Thema Datum  Von Nutzer Rating
Antwort
Rot Beenden statt Debug-Meldung beim öffnen von Dateien
12.10.2017 10:03:47 Chris
Solved
12.10.2017 10:14:18 Gast70117
NotSolved
12.10.2017 10:18:14 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris
Datum:
12.10.2017 10:03:47
Views:
31
Rating: Antwort:
 Nein
Thema:
Beenden statt Debug-Meldung beim öffnen von Dateien

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Beenden statt Debug-Meldung beim öffnen von Dateien
12.10.2017 10:03:47 Chris
Solved
12.10.2017 10:14:18 Gast70117
NotSolved
12.10.2017 10:18:14 Chris
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar