|
Hallo André
Als 2. Zeile (vor Meinem.SaveCopyAs...)
Zielpfad=ThisWorkBook.Sheets(1).Cells(1.1).Value
Und dann "Q:\Ordner\" durch "Zielpfad" (ohne Gänsefüsschen) ersetzen. Dabei darauf achten, dass in der Zelle der letzte Backslash mit drin steht.
Grüsse
Frank
|