Supportnet / Forum / Tabellenkalkulation

Hallo Supporters, ich habe folgendes Problem und hoffe, hier eine Lösung zu finden. Ich habe schon viel "gegoogelt" aber irgendwie nichts passendes bzw. funktionstüchtiges gefunden. Folgendes möchte ich per VBA lösen: Ich habe zwei Arbeitsmappe. In einer der beiden befinden sich x Arbeitsblätter. Diese Anzahl x müsse erst einmal ermittelt werden, weil diese immer variabel ist. Dann sollen diese x Arbeitsblätter komplett in die erste Arbeitsmappe kopiert werden und zwar beginnend nach der letzten Tabelle. Also als Bsp: Tabelle1 hat 100 Tabellen Tabelle2 hat x Tabellen (immer variabel) x Tabellen aus Tabelle2 kopieren und in die Tabelle1 nach der 100 Tabelle einfügen Ergebnis: Tabelle1 hat nun 100 + x Tabellenblätter. Wie kann ich das per VBA lösen? Danke schon mal für eure Hilfe.

Hallo Ron11,

nachfolgendes Makro kopiert Dir alle Tabellenblätter aus der Datei "Tabelle2.xls" immer ans Ende der Datei "Tabelle1.xls".

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Tabellen_kopieren()
Dim iSheet As Integer
Dim iLastShet As Integer
Application.ScreenUpdating = False
GetObject ("C:\Eigene Dateien\Tabelle2.xls")
For iSheet = 1 To Workbooks("Tabelle2.xls").Worksheets.Count
    iLastShet = ThisWorkbook.Sheets.Count
    Workbooks("Tabelle2.xls").Worksheets(iSheet).Copy _
      After:=Workbooks("Tabelle1.xls").Sheets(iLastShet)
Next
Workbooks("Tabelle2.xls").Close False
End Sub

Ich hoffe, Du meintest das so. Du musst in dem Makro in der Zeile

GetObject ("C:\Eigene Dateien\Tabelle2.xls")

noch den Pfad anpassen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

vielen Dank für deine erneute Hilfe.

Gruß Ron

• Kopieren von Blättern innerhalb der Arbeitsmappe
• Suchfunktiuon in Arbeitsmappe
• Makro Arbeitsmappe
• Excel: Tabellenblätter aus Dateien automatisch in eine einzige neue Datei kopieren