Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
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 (Archiv)
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

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige