Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter in neue Arbeitsmappen verschieben

Tabellenblätter in neue Arbeitsmappen verschieben
19.04.2006 16:49:22
kunstname
Hallo Ihr Excel-Experten :-)
Ich habe folgendes "Problem":
Aus einer Arbeitsmappe sollen mehrere (aber nicht alle, sondern nur die Tabellenblätter, welche ich mit meinem Makro festlege) Tabellenblätter in eine Arbeitsmappe verschoben werden, welche nach Ausführen des Makros automatisch neu erstellt wird. Ist es auch möglich dieser neuen Arbeitsmappe auch gleich einen Namen per Makro zu geben?
Vielen Dank schon mal im Voraus!
Viele Grüße

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter in neue Arbeitsmappen verschie
19.04.2006 16:59:19
Matthias
Hallo, Du namenloser, anonymer Geselle,
Sheets("Tabelle1").Move
verschiebt das Blatt in eine neue Mappe.
Diese kannst du dann mit
Set wb = ActiveWorkbook
speichern. Für die nächsten Blattverschiebungen.
Gruß Matthias
AW: Tabellenblätter in neue Arbeitsmappen verschieben
19.04.2006 17:33:12
kunstname
Hi Matthias :-)
Vielen Dank für die schnelle Antwort!!! Gibt es auch eine Möglichkeit, dass ich von der Ursprungs-Excelmappe mehrere Tabellenblätter in EINE neue Arbeitsmappe (die auch mit dem Makro erstellt werden soll und der ein Name vergeben wird, den ich zuvor im Makro festlege)verschieben kann? Mit deiner Formel kann ich leider immer nur EIN Tabellenblatt in 1 neue Arbeitsmappe verschieben. Vielen Dank!!!!
Anzeige
AW: Tabellenblätter in neue Arbeitsmappen verschie
19.04.2006 17:43:43
Matthias
Hallo noname,

Sub Verschieben()
Dim wbAlt As Workbook, wbNeu As Workbook
'"alte" Mappe referenzieren:
Set wbAlt = ActiveWorkbook
'erstes Blatt verschieben, neue Mappe erzeugen:
wbAlt.Sheets("Tabelle1").Move
'neue Mappe referenzieren:
Set wbNeu = ActiveWorkbook
wbAlt.Sheets("Tabelle2").Move After:=wbNeu.Sheets(wbNeu.Sheets.Count)
wbAlt.Sheets("Tabelle3").Move After:=wbNeu.Sheets(wbNeu.Sheets.Count)
'usw
'usf
'Namen vergeben nur durch Speichern möglich:
wbNeu.SaveAs Filename:=ThisWorkbook.Path & "\Verschoben.xls"
End Sub

Gruß Matthias
Anzeige
AW: Tabellenblätter in neue Arbeitsmappen verschie
20.04.2006 11:08:27
kunstname
Hallo Matthias :-)
Vielen Dank für deine Antwort! Das funktioniert einwandfrei! Nur möchte ich aus der Ursprungsdatei bspw. 6 Tabellenblätter in eine neue Arbeitsmappe verschieben, dann möchte ich wieder zurück zur Ursprungsdatei und andere Tabellenblätter wiederum in eine neue Arbeitsmappe verschieben usw. Die Ursprungsdatei wird wöchentlich aktualisiert und ihr wird immer ein neuer Name zugewiesen. Ich bräuchte also ein Makro, welches sich nicht auf den "richtigen" Namen der Ursprungsdatei bezieht, sonst müßte ich ja mein Makro wöchentlich ändern :-( ... Ich hoffe, es ist verständlich...vielen vielen lieben Dank und viele Grüße!!!!
Anzeige
AW: Tabellenblätter in neue Arbeitsmappen verschie
20.04.2006 11:13:04
Matthias
Hallo kn,
in welcher Mappe steht denn das Makro?
du kannst Mappen z.B. so referenzieren:
  • ThisWorkbook (Mappe, in der das Makro steht)
  • ActiveWorkbook (aktive Mappe)
    Gruß Matthias
  • AW: Tabellenblätter in neue Arbeitsmappen verschie
    20.04.2006 11:41:26
    kunstname
    Hi Matthias :-)
    Das Makro ist in der Ursprungsdatei. Jede Woche bekomme ich eine neue Ursprunsdatei. Mein Makro ist in allen Arbeitsmappen als Add-in sichtbar, so dass ich von jeder Mappe darauf zugreifen kann. Danke schon mal, Grüße aus Bayern
    AW: Tabellenblätter in neue Arbeitsmappen verschie
    20.04.2006 11:57:11
    Matthias
    Hallo kn,
    Das Makro ist in der Ursprungsdatei.
    und:
    Mein Makro ist in allen Arbeitsmappen als Add-in sichtbar
    Das widerspricht sich irgendwie, oder?
    Gruß aus Franken,
    Matthias
    Anzeige
    AW: Tabellenblätter in neue Arbeitsmappen verschie
    20.04.2006 12:49:10
    kunstname
    Hi :-)
    Was ich eigentlich gemeint aber nicht geschrieben habe ist ;-): Das Makro ist momentan in der Ursprungsdatei. Soll aber, wenn ich es irgendwie hinbekomme, ALLEN Arbeitsmappen zur Verfügung stehen. Dankeschöööön :-)

    302 Forumthreads zu ähnlichen Themen


    Guten Abend
    Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
    Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
    Anzeige

    Hallo zusammen,
    ich habe eine frage.Vielleicht könnt ihr mir helfen.
    ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
    Aber irgendwie klappt das nicht :(
    Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...

    Hallo zusammen,
    ich muß leider schon wieder die Experten bemühen, da mein VBA leider nicht ausreichend ist.
    Ich habe eine Mappe mit ca. 90 Tabellen. Alle ausser der 1. Tabelle können Infos im Bereich B6:E60 enthalten . Nun würde ich gern zur Auswertung alle diese Infos auf das Worksheet...
    Anzeige

    Hallo Forumsbesucher,
    wie kann ich per Makro folgendes erreichen:
    Ich möchte aus dem aktuell geöffneten Tabellenblatt die Zellbereiche E2:F75 und J2:K75 kopieren und diese Zellbereiche als Kopie in eine neue Mappe (gleicher Zellbereich wie in Ursprungstabelle) einfügen. Das Tabellenblat...

    Moin, habe großes Problem. Ich möchte den Druckbereich eines Rechnungsformulars exakt als 1:1 Kopie ohne Formeln etc. in eine neue DAtei speicher. Der Bereich enthält ausgeblendete Spalten, verbundene Zellen, verschiedene Zellhöhen, unterschiedliche Spaltenbreiten usw. Bei Aufzeichnung mit Makr...

    Hallo,
    ich habe wieder mal ein Problem:
    ich habe eine Arbeitsmappe mit dem Namen "INFOBOX_FICO_test.xlsx" mit mehreren Tabellen, die alle die gleiche Struktur haben. Diese Tabellen sollen in eine Tabelle zusammen gefaßt werden in einer bestehenden aber noch unbefüllten Arbeitsmappe mit...
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige