Excel - Sheet in Workbook einfügen

B

bawde1

Banned

Registriert

Okt. 2016

Beiträge

190

• 17. Dezember 2016

• #1

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?

 

C

Chiller3333

Lieutenant

Registriert

Sep. 2012

Beiträge

534

• 17. Dezember 2016

• #2

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?

 

B

bawde1

Banned

Ersteller dieses Themas

Registriert

Okt. 2016

Beiträge

190

• 17. Dezember 2016

• #3

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

 

C

Chiller3333

Lieutenant

Registriert

Sep. 2012

Beiträge

534

• 17. Dezember 2016

• #4

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.

 

B

bawde1

Banned

Ersteller dieses Themas

Registriert

Okt. 2016

Beiträge

190

• 17. Dezember 2016

• #5

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

 

C

Chiller3333

Lieutenant

Registriert

Sep. 2012

Beiträge

534

• 17. Dezember 2016

• #6

Automatisiert ist ohne VBA nicht machbar.

 

Snooty

Commodore

Registriert

Dez. 2012

Beiträge

4.485

• 17. Dezember 2016

• #7

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

PHP:

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.ä.