Excelzellen kopieren
29.06.2014 17:47:22
Toni
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
DANKE!
Anzeige