Makro Copy&Paste
25.02.2009 10:37:16
Julia
ich habe in einem Ordner die Datei Pivot.xls dort gibt es das Tabellenblatt Rohdaten.
In dieses Tabellenblatt sollen der gesamte Inhalt von Rohdaten.xls (Tabellenblatt hier heißt: Table1)
in Pivot.xls (Tabellenblatt Rohdaten) kopiert werden.
Ich habe folgenden Code:
Sub import_rohdaten()
' import_rohdaten Makro
' Makro am 25.02.2009 von mir aufgezeichnet
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ChDir "C:\Dokumente und Einstellungen\Desktop\Pivot"
Workbooks.Open Filename:=ThisWorkbook.Path & "\rohdaten.xls"
Cells.Select
Selection.Copy
Range("A1").Select
Windows("Pivot.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Windows("rohdaten.xls").Activate
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Projekt"
Range("A1").Select
ActiveWorkbook.Close
ActiveWorkbook.Save
End Sub
Der Code hat aber Schwächen. Er fragt mich immer ob die rohdaten.xls gespeichert werden soll. Es sollen aber keine Änderungen in der rohdaten.xls gespeichert werden
Und auch in der Zischenablage soll nicht gespeichert werden. Immer wenn ich diesen Code ausführe werde ich das gefragt
Außerdem kopiert mir das Makro die Rohdaten immer in das aktive Tabellenblatt von Pivot.xls
Aber egal wo ich mich befinde, die Daten sollen immer in das Tabellenblatt Rohdaten von Pivot.xls kopiert werden