Hallo Schokobons,
erstmal danke für Deine Antwort. Ich habe den Fehler gerade gefunden. Man ersetze:
LastZeileData = Workbooks("Lagerdaten").Sheets("Daten").Range("AC1")
durch:
LastZeileData = Workbooks("Lagerdaten.xls").Sheets("Daten").Range("AC1")
und schon fluppt es. Warum allerdings bei dem Rechner auf der Arbeit die Extension nicht benötigt wird, ist mir noch immer ein Rätsel.
Trotzdem danke für Deine Mühe.
Greets Robirob
|