Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Ron11 vom 20.08.2020, 10:38 Options
mehrere Tabellenblätter in andere Arbeitsmappe kopieren
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.
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.
Antwort 1 von coros vom 20.08.2020, 18:11 Options
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.
Ich hoffe, Du meintest das so. Du musst in dem Makro in der Zeile
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.
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 SubIch 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.
Ähnliche Themen
CD-Tracks auf der Festplatte sichern
Timid 06.03.2007 - 6901 Hits - 2 Antworten
Kopieren von Blättern innerhalb der Arbeitsmappe
micico 24.02.2007 - 75 Hits - 3 Antworten
Suchfunktiuon in Arbeitsmappe
Matze3 27.08.2007 - 25 Hits - 6 Antworten
Makro Arbeitsmappe
Diogeness 25.10.2007 - 64 Hits - 2 Antworten
Excel: Tabellenblätter aus Dateien automatisch in eine einzige neue Datei kopieren
Cerrio 25.01.2008 - 158 Hits - 12 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
