Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba- 2 Blätter in neue Mappe einfügen

Forumthread: vba- 2 Blätter in neue Mappe einfügen

vba- 2 Blätter in neue Mappe einfügen
17.10.2019 11:14:04
Fred

Hallo Excel-Profis,
ich nutze bereits eine Zeit lang das Makro 
Dim DateiName As String
Const Pfad As String = "C:\Users\Besitzer\Desktop\Depot_1\"
DateiName = Worksheets("Kriterien").Range("E1").value
Worksheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Pfad & DateiName, FileFormat:=51
ActiveWorkbook.Close savechanges:=False

Es wird eine Mappe erstellt, dessen Name in Sheet("Kriterien").range("E1") steht.
Kopiert und in die neue Mappe eingefügt wird das Tabellenblatt "Tabelle1".
Schön kurz der Code. Wie ist es aber, wenn ich 2 Sheets kopieren und einfügen möchte?
Kann mir jemand bitte dies entsprechend korrekt ergänzen?
Gruß
Fred
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba- 2 Blätter in neue Mappe einfügen
17.10.2019 12:41:42
Nepumuk
Hallo Fred,
warum benutzt du nicht den Makrorekorder? Der wirft bei mir folgendes aus.
Worksheets(Array("Tabelle1", "Tabelle2")).Copy

Also nicht ganz, aber das solltest du selber anpassen können.
Gruß
Nepumuk
Anzeige
...wohl deshalb werde ich nie vba raffen
17.10.2019 16:53:09
Fred
Hallo Nepumuk,
um zu erreichen, dass 2 Sheets in eine neue Mappe kopiert werden, schreibe ich nun: 
Dim DateiName As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'Fehlermeldungen ausschalten
Const Pfad As String = "C:\Users\Besitzer\Desktop\Master\test\"
DateiName = Worksheets("Kriterien").Range("E1").value
Worksheets(Array("Tabelle1", "Tabelle2")).Copy
ActiveWorkbook.SaveAs Pfad & DateiName, FileFormat:=51
ActiveWorkbook.Sheets("Tabelle1").Columns("CA:CF").Delete
ActiveWorkbook.Sheets("Tabelle2").Columns("AF:BA").Delete
ActiveWorkbook.Save 'Die neue Arbeitsmappe speichen
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True

klappt!
ABER!
Wo lese ich aus dem Code herraus, dass das kopierte eingefügt wird?
ppffff
Gruß
Fred
Anzeige
AW: ...wohl deshalb werde ich nie vba raffen
17.10.2019 16:59:11
Daniel
Hi
das kannst du nicht aus dem Code herauslesen, sondern höchsten aus den Hilfeseiten.
beim Sheets.Copy werden die kopierten Sheets ohne expliziten Einfügebefehl sofort automatisch eingefügt.
Wenn man keine Angaben macht, wo eingefügt werden soll, dann wird eine neue Mappe erstellt.
Gruß Daniel
Anzeige
AW: ...wohl deshalb werde ich nie vba raffen
17.10.2019 17:03:56
Fred
Hallo Daniel,
Danke für die Erläuterung!
Zu diesen Punkt hat es nun zumindest bei mir geklingelt :-)
Schönen Abend noch
Fred
;

Forumthreads zu verwandten Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
3 Beiträge
Anzeige
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Zeilen einfügen mit VBA-Code
HaKa

Hallo Forum
Ich möchte in einer bestehenden Tabelle, Bereich A3:U150, resp. nach jeder der 147 Zeilen jeweils 10 neue, leere Zeilen einfügen. Wie lautet der Code?
Gruss Heinz
06.07.2010 20:53:12
Thread-ID: 1165794
3 Beiträge
Anzeige
Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan

Hallo zusammen
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden....
17.08.2010 13:11:00
Thread-ID: 1172554
4 Beiträge
Formel via VBA in best. (viele) Zellen einfügen
Klaus

Hallihallo zusammen,
und zwar mache ich u.a. einen Vergleich von 2 Tabellen mit mehreren Spalten und vielen Zeilen (meist um die 2500). [Vergleichscode ursprünglich von Hajo-Excel.de... vielen Dank an der Stelle!!]
Ich habs so hinprogrammiert und es hat im Kleinen auch gut funktioniert....
15.09.2010 16:53:30
Thread-ID: 1177873
5 Beiträge
Anzeige
Leere Zeile einfügen
Tobson

Halli Hallo
Habe den folgenden VBA Code, bei Übereinstimmung der If Abfrage wird eine Tabelle mit Werten beschrieben, trifft die Übereinstimmung nicht zu, soll eine Zeile frei gelassen werden und die Schleife das nächste mal durchlaufen... . Ich suche ja immer die nächste frei Zeile in der...
14.10.2010 22:56:15
Thread-ID: 1182501
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige