Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Do ohne Loop

Do ohne Loop
06.05.2013 15:14:13
Sascha
Hallo,
ich bekomme beim folgenden Code die Fehlermeldung: Do ohne Loop!
Sieht jemand woran es liegen könnte?
Sub copy_prod()
Dim Datei As String
Dim Pfad As String
Pfad = "S:\Pulverstatus\export-prod\"
Datei = Dir(Pfad & "*.xls*")
Do While Datei  ""
Workbooks.Open Pfad & Datei
ActiveWorkbook.Sheets("uebertragung2").UsedRange.Copy
With ThisWorkbook.Sheets("prod")
.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).PasteSpecial Paste:=xlPasteAll
End With
ActiveWorkbook.Close
Kill Pfad & Datei
Datei = Dir
End Sub

Vorab vielen Dank.
LG
Sascha

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Do ohne Loop
06.05.2013 15:16:40
Klaus
Hallo Sascha,
genau daran was die Fehlermeldung sagt: es fehlt das LOOP! Müsste ganz unten, direkt vor "End Sub", hinkommen.
Grüße,
Klaus M.vdT.

AW: Do ohne Loop
06.05.2013 15:16:48
Rudi
Hallo,
Sieht jemand woran es liegen könnte?
Daran, dass Loop fehlt.
Die Fehlermeldung ist doch eindeutig.
....
Datei=Dir
Loop
End Sub
Gruß
Rudi

AW: Do ohne Loop
06.05.2013 15:17:30
Hajo_Zi
Hallo Sascha,
das was die Meldung schon sagt es fehlt Loop.
vielleich vor ..Close.

falscher geht's kaum owT.
06.05.2013 15:25:21
Rudi
Anzeige

63 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige