Excelzellen kopieren

Sub Startwerte()
qOrdner = ThisWorkbook.Path & "\"   ' Der Meldeordner kann an beliebiger Stelle liegen
qDateiname = ThisWorkbook.Name      ' Die Meldedatei kann beliebig umbenannt werden
zielOrdner = "D:\010_PRIVAT\000_MASKEN+Vorlagen\Macros\"
zielDateiname = "Meldeliste_Gesamt.xlsm"
Workbooks(qDateiname).Worksheets(1).Range("C3").Copy
Workbooks(zielDateiname).Worksheets(1).Range("C3").PasteSpecial Paste:=xlPasteValues
' Bis hier geht es wenn beide Dateinen im gleichen Ordner liegen.
' wenn ich versuche den Ordner (qOrdner/ZielOrdner) im Name anzugeben (&..) oder irgendwie  _
anders geht nix mehr
End Sub