Tabellenblatt kopieren

Guten Morgen lieben VBA Profis,
ich bin kurz vor dem verzweifeln. Seit 2 Tagen versuche ich nun schon folgendes. Es sind zwei Aufgaben.
1. Ich möchte von einer geöffneten Excel Tabelle (Version_1.xlsm) ein definiertes Tabellenblatt ("Links") in eine andere Excel Tabelle (Version_2.xlsm) ohne Nachfrage importieren, also überschreiben.
2. In der Excel Tabelle (Version_1.xlsm) existieren ab Position 5 ca. 15 weitere Tabellenblätter (Anwender hat z.B. in den letzten Wochen 3 Tabellenblätter neu angelegt). Zuvor waren es also ab Pos. 5 nur 13 Tabellenblätter. Nun sollen ab Pos.5 alle Tabellenblätter eingelesen und nur die hinzugekommenen Tabellenblätter in die Excel Tabelle (Version_2.xlsm) importiert werden.
Ich habe bereits mit verschiedenen Ansätzen (ADOB.Connection oder sheets("xx").copy....) versucht eine Lösung zu finden....bin allerdings immer wieder, auch an meinen fehlenden VBA Kenntnissen gescheitert.
Ich würde mich ganz toll freuen, wenn Ihr mir hierzu eine Hilfe anbieten könntet.
Grüße aus Bayern
Günther

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt kopieren

25.11.2022 08:53:36

Oberschlumpf

AW: Tabellenblatt kopieren

25.11.2022 10:19:35

Günther

AW: Tabellenblatt kopieren

25.11.2022 10:27:28

Oberschlumpf

zu 2.

25.11.2022 10:38:39

Oberschlumpf

AW: zu 2.

25.11.2022 10:59:12

Günther

AW: zu 2.

25.11.2022 11:50:04

Oberschlumpf

AW: zu 2.

25.11.2022 11:59:21

Günther

AW: zu 2.

25.11.2022 12:03:23

Oberschlumpf

AW: zu 2.

25.11.2022 12:18:19

Günther

AW: Tabellenblatt kopieren

25.11.2022 10:54:11

Günther

Sub Makro1() ' Makro1 Makro With Workbooks("Version_2.xlsm") Application.DisplayAlerts = False .Sheets("Links").Delete Sheets("Links").Copy Before:=.Sheets(1) Application.DisplayAlerts = True End With End Sub

Hi Günther,
füg den folgenden Code in Datei "Version_1.xlsm" in ein allgemeines Modul ein und beachte die Hinweise, die ich im Code als Kommentare hinterlassen habe


Sub sbCopyToOtherFile()
'die Zieldatei, du nennst sie "Version_2.xlsm" MUSS geöffnet sein!
Dim lwbTarget As Workbook
Dim liThis As Integer, lshTarget As Worksheet, lboExist As Boolean
Set lwbTarget = Workbooks("Version_2.xlsm") 'wenn deine geöffnete Zieldatei anders heißt, dann hier anpassen
With ThisWorkbook
For liThis = 7 To .Sheets.Count
For Each lshTarget In lwbTarget.Sheets
If .Sheets(liThis).Name = lshTarget.Name Then
lboExist = True
Exit For
End If
Next
If lboExist = True Then
lboExist = False
Else
.Sheets(liThis).Copy after:=lwbTarget.Sheets(lwbTarget.Sheets.Count)
End If
Next
End With
Set lwbTarget = Nothing
End Sub

Hilfts?
Mit deiner Bsp-Datei, von der ich eine Kopie als Datei2 erstellt habe, nachdem ich einige Blätter löschte, funktioniert mein Code tadellos.
Die in Datei2 fehlenden Blätter werden immer am Ende aller Blätter eingefügt.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread