Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

62 Tabellenblätter in eine neue Datei

Forumthread: 62 Tabellenblätter in eine neue Datei

62 Tabellenblätter in eine neue Datei
08.08.2019 21:35:23
Tobi
Hallo zusammen,
ich würde einmal eure Unterstützung benötigen.
Mein Problem ist, dass ich 62 Tabellenblätter in der viele Formel etc. enthalten sind in eine Tabelle (neue Datei) zusammenführe möchte. Alle Tabellenblätter Bereich A1:O120 untereinander. Da möchte ich aber nur die Werte einfügen. Da sonst ein Chaos entsteht, weil ich teilweise den Blattnamen etc. mitverwende!
Ist das möglich.
VG Tobi
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: so? (ungeprüft)
08.08.2019 22:02:53
Fennek 

sub T62_1()
with activesheet
set WB = workbooks.open(Pfad & file)
for each Sh in WB.Sheets
sh.range("A1:O120").copy .cells(rows.count,1).end(xlup).offset(1)
next Sh
WB.close 0
end with
end sub

AW: so? (ungeprüft)
09.08.2019 08:34:18
Tobi
Hallo Fennek,
leider bekomme ich das Makro nicht an laufen.
Ist es vielleicht einfacher die Tabellenblätter im aktuellen Workbook untereinander zu kopieren?
Die Daten sollen im Format nur Werte und Zahlenformat eingefügt werden. Ansonsten verliere ich wichtige Informationen.
Vielen Dank im Voraus
Tobi
Anzeige
AW: so? (ungeprüft)
09.08.2019 09:18:05
Torsten
Hallo Tobi,
der code von Fennek macht genau das: 

Ist es vielleicht einfacher die Tabellenblätter im aktuellen Workbook untereinander zu kopieren?
Moeglicherweise hast du den Code nicht da eingefuegt, wo er sein sollte.
1. Der code muss in ein Modul im Workbook, wo du die Daten hinkopieren willst.
2. "With ActiveSheet" bedeutet, dass, wenn du den Code startest, das Blatt aktiv sein muss, wo du die Daten hinkopieren willst.
3. "Set WB = Workbooks.Open(Pfad & File)"...hier musst du natuerlich noch den Pfad und den Dateinamen angeben, aus welchem kopiert werden soll.
4. Wenn du nur Werte und Nummernformtatierung uebertragen willst, dann aendere die Kopierzeile: 

sh.Range("A1:O120").Copy
.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
Es waere aber auch einfacher, wenn du uns mal deine Datei als Beispieldatei hochlaedst.
Gruss Torsten
Anzeige
AW: so? (ungeprüft)
09.08.2019 10:25:04
Torsten
Hallo Tobi,
ich nehme an, dass dies die Datei mit den normalerweise 62 Blaettern ist.
Diese Datei muss als .xlsm Datei gespeichert werden, damit Makros in dieser Datei benutzt werden koennen.
Dann diesen Code in ein allgemeines Modul kopieren. Dann den Code ausfuehren.
Gruss Torsten

Sub T62_1()
Dim Sh As Worksheet
Dim WB As Workbook
Dim lst As Long
With ThisWorkbook
Set WB = Workbooks.Add
For Each Sh In ThisWorkbook.Sheets
Sh.Range("A1:O120").Copy
lst = WB.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
WB.Sheets(1).Cells(lst + 1, 1).PasteSpecial xlPasteValuesAndNumberFormats
Next Sh
WB.Sheets(1).Cells(1, 1).EntireRow.Delete
End With
End Sub

Anzeige
AW: so? (ungeprüft)
09.08.2019 10:32:15
Mark
Hallo Torsten,
mega, funktioniert super - vielen Dank.
Viele Grüße
Tobi
gerne...
09.08.2019 11:09:26
Torsten
Danke fuer die Rueckmeldung
;

Forumthreads zu verwandten 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
Tabellenblätter in neue Arbeitsmappe kopieren
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 ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
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
Anzeige
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
Tabellenblatt in alle Dateien eines Ordn. kopieren
Markus

Hallo Zusammen,
ich bräuchte mal wieder eure Hilfe!! Sorry!!!
ich möchte gerne ein Tabellenblatt "Reperatur" in alle Exceldateien eines Ordners "Liste" kopieren.
Mein Gedanke dazu war, dass ich über folgende Schleife (aus einem Forum) die Dateien öffne und jeweils das Tabellenblatt...
09.03.2011 19:16:47
Thread-ID: 1205030
6 Beiträge
Bereich aus Tabellenblat in neue Datei einfügen
Werner

Hallo Excelfreunde
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nich...
29.05.2011 21:14:34
Thread-ID: 1216611
3 Beiträge
Zellenbereich in neue Datei kopieren
donimuc

Hallo Excelprofis!
Und wieder werde ich euch mit meinem "kleinen" Problem ein Lächeln entlocken! :-)
Wer kann mir einen VBA -Befehl schreiben, mit dem ich ich den Zellenbereich B2:AB20 aus dem Blatt "Daten" kopieren kann und in eine neue Datei, Blatt "Final" in den gleichen Zellenbereic...
21.01.2012 14:53:09
Thread-ID: 1247334
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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