Ich habe zwei Mappen Mappe 1 und 2
in jeder habe ich 4 Sheets 1, 2, 3, 4.
Nun möchte ich per Makro die Sheets aus Mappe 2
kopieren und in Mappe 1 ersetzen (überschreiben)
Habe mal diesen Code aufgenommen:
Sub Makro1()
Windows("20091112.xlsx").Activate
Sheets(Array("Auftragsdaten", "Bunddaten", "Analysen", "Analysen Details")). _
Select
Application.CutCopyMode = False
Sheets(Array("Auftragsdaten", "Bunddaten", "Analysen", "Analysen Details")).Copy _
Before:=Workbooks("S50-Analyse-1.xlsx").Sheets(1)
End Sub
Damit geht es aber nicht er fügt nur ne Kopie hinzu. weis jemand was ich am Code ändern muss?
MfG
Stephan