Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter in neue Arbeitsmappe kopieren

Tabellenblätter in neue Arbeitsmappe kopieren
10.09.2008 16:37:00
Christian
Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer über die datei verteilt, allerdings ändert sich die position der blätter nicht, also könnte ich sie ja über "sheets(xx)" ansprechen!?!
Das makro sollte per schaltfläche gestartet werden, die schaltfläche soll in einem blatt, das nicht kopiert wird, eingefügt werden.
Habe lange gesucht aber leider nichts passendes gefunden... Hat jemand einen Vorschlag?
Vielen Dank im Voraus
mfg
Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter in neue Arbeitsmappe kopieren
10.09.2008 17:01:32
Rudi
Hallo,
als Ansatz:

Sub tt()
Dim wks As Worksheet
Sheets(Array(1, 3, 5, 7, 9)).Copy
For Each wks In ActiveWorkbook.Worksheets
wks.UsedRange.Value = wks.UsedRange.Value
Next
End Sub


Gruß
Rudi

AW: Tabellenblätter in neue Arbeitsmappe kopieren
10.09.2008 17:14:00
Christian
Super Rudi, vielen dank, so hab ich mir das vorgestellt! Auch wenn ich den Code nicht wirklich nachvollziehen kann :)
Nun noch 2 "Kleinigkeiten":
1. ich würde gerne die reihenfolge der Blätter in der neuen mappe ändern - konkret: ich kopiere u.a. blatt 43, 55, 56. Blatt 43 soll hinter blatt 56 in der neuen mappe, leider reicht es nicht die position der zahlen im Array zu verändern... Geht das oder muss ich das in der neuen mappe manuell verschieben?
2. Die Blätter sind in der originaldatei mit anderen Blättern verknüpft, diese Verknüpfungen möchte ich in der neuen mappe (möglichst automatisch) entfernen (Menü Bearbeiten / Verknüpfungen / entfernen).
Wie geht das per Makro?
Nochmals Danke!
gruss
christian
Anzeige
AW: Tabellenblätter in neue Arbeitsmappe kopieren
10.09.2008 17:41:00
Rudi
Hallo,
die Verknüpfungen werden gelöscht, da alle Formeln in Werte umgewandelt werden.

Sub tt()
Dim wks As Worksheet
Sheets(Array(1, 3, 5, 7, 9)).Copy
sheets(1).move after:=sheets(3)
For Each wks In ActiveWorkbook.Worksheets
wks.UsedRange.Value = wks.UsedRange.Value
Next
End Sub


Gruß
Rudi

AW: Tabellenblätter in neue Arbeitsmappe kopieren
11.09.2008 08:56:00
Christian
Guten Morgen!
nochmals vielen Dank für den Lösungsvorschlag, aber leider funktioniert es nicht.. :(
ich bekomme folgende Fehlermeldung:
Userbild
Die neue Datei wird angelegt, die Blätter hineinkopiert, aber das ändern der Reihenfolge klappt nicht.
Eine ähnliche Meldung bekomme ich auch wenn ich die Blätter manuell kopiere, aber NICHT bei der ersten lösung ohne die geänderte Reihenfolge.
Das Problem auf das die Meldung hinweist stört mich nicht, wenn ich manuell kopiere sage ich einfach OK und alles ist so wie ich es wünsche, ich denke es liegt an den mehrzeiligen formeln, aber wie gesagt führt es zu keinen falschen daten...
Für weitere Tipps nochmal vielen Dank im Voraus
gruss
christian
Anzeige
AW: Tabellenblätter in neue Arbeitsmappe kopieren
11.09.2008 12:33:51
Christian
Hallo nochmal,
hat sich erledigt, war mein fehler...
in der zeile: sheets(1).move after:=sheets(3)
müssen in klammern die positionen der blätter in der neuen arbeitsmappe!
Jetz ist alles wie gewünscht, die Verknüpfungen bleiben zwar drin, aber die nervige nachfrage nach aktualisierung kommt nicht mehr, da ja die formeln durch werte ersetzt werden.
nochmals vielen dank!
gruss
christian

312 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

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...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
tabellenblatt in Excel mit neuer Instanz kopieren
chris

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...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Tabellenblätter auswählen & in neue Datei kopieren
Andreas

Guten Morgen. Ihr Könner!
Ich habe hier eine Excel-Datei mit unzähligen Tabellenblättern, die wie folgt beschriftet sind:
LN-Mo, LN-Di, ... LN-Sa
SN-Mo, SN-Di, ... SN-Sa
usw. usf.
Nun will ich per Inputbox zum Beispiel alle Tabellenblätter mit "Mo" auswählen und in eine neue...
29.04.2009 09:23:32
Thread-ID: 1071782
5 Beiträge
Anzeige
Tabellen in Datei kopieren
Tobiax

Hallo!
Ich möchte gerne einige meiner Tabellen per Makro in eine Andere Datei kopieren.
Allerdings sollen nur die Werte und das Format in den 4 Tabellenblätter übernommen werden. Die Formeln nicht.
Die beiden Dateien liegen IMMER im selben Ordner.
Kann mir jmd helfen?
Toby ....
25.07.2009 09:06:13
Thread-ID: 1091116
4 Beiträge
Blätter in neue Datei kopieren
Tobiax

Hallo!
Ich möchte aus der Datei "x.xls", 5 bestimmte Tabellenblätter (A, B, C, D, E) in die Datei "y.xls" kopiert haben.
Wie bekomme ich das per Makro hin?
Toby ...
P.S.: Zur Not kann mit den 5 Blättern auch neue Datei generiert werden mit dem Namen "y.xls".
27.07.2009 11:48:47
Thread-ID: 1091559
6 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Tabellenausschnitt per VBA in neue Mappe kopieren
Fritz_W

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...
20.05.2010 14:40:31
Thread-ID: 1158089
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
7
4
6
3
5
13
5
5
7
5
2
13
1
4
6
19
7
1
6
2
12
1
1