bei der vorletzten zeile, findet er die datei nicht, was kann ich tun?

str1 = "PMD_2002_KW" 'erster Teil des Dateinamens

str2 = "_IN.xls" 'zweiter Teil des Dateinamens

datei1 = str1 + Format(Date, "ww") + str2 'Dateiname wird aus dem 1. & 2. Teil und der KW zusammengesetzt

datei2 = str1 + CStr(CInt(Format(Date, "ww")) - 1) + str2

quelle = "D:\wwwroot\Stueckzahlen\DATEN02\"

With Application.FileSearch 'Dateien suchen...

.NewSearch

.LookIn = quelle '... im Ordner Quelle

If .Execute() > 0 Then 'wenn mehr als 0 Dateien gefunden..

MsgBox "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden." 'ausgabe der Messagebox

'For i = 1 To .FoundFiles.Count 'Schleife wird so oft wiederholt wie dateien da sind

quelle = "D:\wwwroot\Stueckzahlen\DATEN02\"

.LookIn = quelle

Workbooks.Open datei1

evt solltest du schreiben

Workbooks.Open quelle + datei1 ?

dann hast du definitiv auch die Pfadangabe...

Uruz

P.S.: k. A. was das fuer eine Programmiersprache sein soll... aber ich denke mal, dass das ein logischer Fehler sein koennte...