Excel - Sheet in Workbook einfügen

[bawde1]

Hallo zusammen,

ich habe folgendes:
1) Excel Datei 1 -> Sheet 1
2) Excel Datei 2 -> Sheet 1 bis 10

Nun möchte ich aus Excel Datei 1 den Sheet 1 kopieren und in Excel Datei 2 den Sheet 8 ersetzen.

wie stelle ich das am besten an ohne macro in der excel?

 

[Chiller3333]

Sind irgendwelche Formeln in den Blätter, die auf Blatt 8 verweisen?
Ist der Aufbau der Blätter 1 aus Datei 1 und 8 aus Datei 2 identisch?

 

[bawde1]

der aufbau ist identisch und in der zweiten excel wird auf sheet nr. 8 verwiesen.

 

[Chiller3333]

Dann ist das einfach.
Rechtsklick auf das Blatt in Datei eins und in Datei 2 Kopieren/Verschieben.
Dann mittels Suchen und Ersetzen sämtliche Verweise auf den Namen von Blatt 8 auf den des neuen Blatts ändern.
Danach kann man Blatt 8 löschen und evtl. das kopiere Blatt umbenennen.

 

[bawde1]

ich hätte noch schreiben sollen, dass ich etwas automatisiertes haben möchte

 

[Chiller3333]

Automatisiert ist ohne VBA nicht machbar.

 

[Snooty]

Mit folgendem Makro geht es für den Fall, dass du immer Blatt 8 ersetzen möchtest.

Sub Makro()

Set wb1 = Workbooks("Mappe1.xlsm")
Set wb2 = Workbooks("Mappe2.xlsm")

wb1.Sheets("Tabelle1").Copy Before:=wb2.Sheets(8)
wb2.Activate
Application.DisplayAlerts = False
wb2.Sheets(9).Delete
Application.DisplayAlerts = True
wb2.Sheets(8).Name = "Tabelle8"
wb1.Activate

End Sub

Man könnte natürlich auch Abfragen einbauen, welches Blatt ersetzt werden soll u.ä.