Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Schleife bricht nach erstem Mal ab
06.05.2022 10:36:57 TW
NotSolved
06.05.2022 11:44:10 Gast46204
Solved
06.05.2022 12:21:07 TW
NotSolved
06.05.2022 12:59:46 Gast46204
NotSolved
06.05.2022 13:25:47 Gast35183
NotSolved
06.05.2022 14:11:54 Gast46204
NotSolved
06.05.2022 14:32:02 TW
NotSolved
06.05.2022 14:43:04 Gast46204
NotSolved
06.05.2022 14:44:29 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
TW
Datum:
06.05.2022 10:36:57
Views:
108
Rating: Antwort:
  Ja
Thema:
VBA Schleife bricht nach erstem Mal ab

Hallo an alle VBA Experten,

ich benötige Hilfe bei einem meiner Meinung nach wirklich sehr einfachen Code. Alle Google Ergebnisse liefern mir am Ende genau das was ich geschrieben habe.

Folgendes möchte ich tun: Dateien in einem Ordner der Reihe nach öffnen und bestimmte Werte in ein Zieldokument kopieren.

Die Dateien (aktuell 3 Stück E1.xls F1.xls G1.xls) sind im Ordner C:\Users\xy\Test read out ZESR\ZESR.

Die Zieldatei ist im Ordner: C:\Users\xy\Test read out ZESR.

Ich bin aktuell nur soweit, dass alles in Zelle B2 kopiert wird. Den nächsten Schritt es der Reihe nach in B2,B3,B4...zu kopieren hab ich noch nicht gelöst. Das ist gerade auch nicht das Problem.

Mein Problem besteht darin, dass die Schleife nach dem ersten Mal einfach abbricht. Ich kann mir das nicht erklären, es sind ja noch 2 Dateien übrig. Ich kriege auch keine Fehlermeldung, der erste Schritt klappt einwandfrei. Vielleicht kennt jemand dieses Problem?

Hier der Code:

 

Sub CopyandPaste()

Dim Pfad As String, Dateiname As String
Dim PfadOrg As String, DateinameOrg As String
Pfad = "C:\Users\xy\Test read out ZESR\ZESR\"
Dateiname = Dir(Pfad & "*.xls")
PfadOrg = "C:\Users\xy\Test read out ZESR\"
DateinameOrg = Dir(PfadOrg & "Read_out_ESR.xlsm")
Do While Dateiname <> ""
    Workbooks.Open Filename:=Pfad & Dateiname
    Workbooks(Dateiname).Sheets("Z-ESR Dia").Range("P37").Copy
    Workbooks(DateinameOrg).Sheets("Sheet1").Range("B2").PasteSpecial xlPasteValues
    Workbooks(Dateiname).Close SaveChanges:=False
    Dateiname = Dir
Loop

End Sub

 

Wäre nett wenn mir hier jemand die Augen öffnen kann!

Danke und Grüße

TW


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 VBA Schleife bricht nach erstem Mal ab
06.05.2022 10:36:57 TW
NotSolved
06.05.2022 11:44:10 Gast46204
Solved
06.05.2022 12:21:07 TW
NotSolved
06.05.2022 12:59:46 Gast46204
NotSolved
06.05.2022 13:25:47 Gast35183
NotSolved
06.05.2022 14:11:54 Gast46204
NotSolved
06.05.2022 14:32:02 TW
NotSolved
06.05.2022 14:43:04 Gast46204
NotSolved
06.05.2022 14:44:29 ralf_b
NotSolved