Note: The other languages of the website are Google-translated. Back to English

Wie kombiniere ich mehrere Arbeitsmappen in einer Master-Arbeitsmappe in Excel?

Waren Sie jemals festgefahren, als Sie mehrere Arbeitsmappen in einer Master-Arbeitsmappe in Excel kombinieren mussten? Das Schrecklichste ist, dass die Arbeitsmappen, die Sie kombinieren müssen, mehrere Arbeitsblätter enthalten. Und wie kombiniere ich nur die angegebenen Arbeitsblätter mehrerer Arbeitsmappen zu einer Arbeitsmappe? Dieses Tutorial zeigt verschiedene nützliche Methoden, mit denen Sie das Problem Schritt für Schritt lösen können.


Kombinieren Sie mehrere Arbeitsmappen zu einer Arbeitsmappe mit der Funktion Verschieben oder Kopieren

Wenn nur einige Arbeitsmappen kombiniert werden müssen, können Sie mit dem Befehl Verschieben oder Kopieren Arbeitsblätter manuell von der ursprünglichen Arbeitsmappe in die Master-Arbeitsmappe verschieben oder kopieren.

1. Öffnen Sie die Arbeitsmappen, die Sie zu einer Master-Arbeitsmappe zusammenführen möchten.

2. Wählen Sie die Arbeitsblätter in der ursprünglichen Arbeitsmappe aus, die Sie verschieben oder in die Master-Arbeitsmappe kopieren möchten.

Hinweise:

1). Sie können mehrere nicht benachbarte Arbeitsblätter auswählen, indem Sie die Taste gedrückt halten Ctrl Taste und klicken Sie nacheinander auf die Blattregisterkarten.

2). Um mehrere benachbarte Arbeitsblätter auszuwählen, klicken Sie bitte auf die erste Blattregisterkarte und halten Sie die gedrückt Verschiebung Klicken Sie auf die Registerkarte "Letztes Blatt", um alle auszuwählen.

3). Sie können mit der rechten Maustaste auf eine beliebige Blattregisterkarte klicken und auf klicken Wählen Sie Alle Tabellen aus Wählen Sie im Kontextmenü alle Arbeitsblätter in der Arbeitsmappe gleichzeitig aus.

3. Klicken Sie nach Auswahl der erforderlichen Arbeitsblätter mit der rechten Maustaste auf die Registerkarte Blatt, und klicken Sie dann auf Verschieben oder Kopieren aus dem Kontextmenü. Siehe Screenshot:

4. Dann die Verschieben oder Kopieren Das Dialogfeld wird im angezeigt Buchen Wählen Sie in der Dropdown-Liste die Master-Arbeitsmappe aus, in die Sie Arbeitsblätter verschieben oder kopieren möchten. Wählen Sie Verschieben, um im zu enden Vor dem Blatt Aktivieren Sie das Kontrollkästchen Erstellen Sie eine Kopie Kästchen und klicken Sie schließlich auf OK .

Dann können Sie Arbeitsblätter in zwei Arbeitsmappen sehen, die zu einer zusammengefasst sind. Bitte wiederholen Sie die obigen Schritte, um Arbeitsblätter aus anderen Arbeitsmappen in die Master-Arbeitsmappe zu verschieben.


Kombinieren Sie mehrere Arbeitsmappen oder bestimmte Arbeitsmappenblätter mit VBA zu einer Master-Arbeitsmappe

Wenn mehrere Arbeitsmappen zu einer zusammengeführt werden müssen, können Sie die folgenden VBA-Codes anwenden, um dies schnell zu erreichen. Bitte gehen Sie wie folgt vor.

1. Legen Sie alle Arbeitsmappen, die Sie kombinieren möchten, in einem Verzeichnis unter demselben Verzeichnis ab.

2. Starten Sie eine Excel-Datei (diese Arbeitsmappe ist die Hauptarbeitsmappe).

3. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendungen Fenster. In dem Microsoft Visual Basic für Anwendungen Klicken Sie im Fenster Insert > ModulKopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code 1: Führen Sie mehrere Excel-Arbeitsmappen zu einer zusammen

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Hinweise:

1. Der obige VBA-Code behält die Blattnamen der ursprünglichen Arbeitsmappen nach dem Zusammenführen bei.

2. Wenn Sie nach dem Zusammenführen unterscheiden möchten, welche Arbeitsblätter in der Master-Arbeitsmappe von wo stammen, wenden Sie den folgenden VBA-Code 2 an.

3. Wenn Sie nur bestimmte Arbeitsblätter der Arbeitsmappen zu einer Master-Arbeitsmappe kombinieren möchten, kann der folgende VBA-Code 3 hilfreich sein.

In VBA-CodesC: \ Benutzer \ DT168 \ Desktop \ KTE \”Ist der Ordnerpfad. Im VBA-Code 3 "Sheet1, Sheet3"sind die angegebenen Arbeitsblätter der Arbeitsmappen, die Sie zu einer Master-Arbeitsmappe kombinieren. Sie können sie je nach Bedarf ändern.

VBA-Code 2: Arbeitsmappen zu einer zusammenführen (jedes Arbeitsblatt wird mit dem Präfix seines ursprünglichen Dateinamens benannt):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

VBA-Code 3: Führen Sie bestimmte Arbeitsblätter von Arbeitsmappen zu einer Master-Arbeitsmappe zusammen:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Anschließend werden alle Arbeitsblätter oder angegebenen Arbeitsblätter der Arbeitsmappen in einem bestimmten Ordner gleichzeitig zu einer Master-Arbeitsmappe kombiniert.


Kombinieren Sie einfach mehrere Arbeitsmappen oder bestimmte Arbeitsmappenblätter zu einer Arbeitsmappe

Glücklicherweise Kombinieren Arbeitsmappen-Dienstprogramm von Kutools for Excel macht es viel einfacher, mehrere Arbeitsmappen zu einer zusammenzuführen. Lassen Sie uns sehen, wie diese Funktion beim Kombinieren mehrerer Arbeitsmappen funktioniert.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Erstellen Sie eine neue Arbeitsmappe und klicken Sie auf Kutoolen Plus > Kombinieren. Anschließend wird ein Dialogfeld angezeigt, das Sie daran erinnert, dass alle kombinierten Arbeitsmappen gespeichert werden sollten und die Funktion nicht auf geschützte Arbeitsmappen angewendet werden kann. Klicken Sie auf OK .

2. In dem Arbeitsblätter kombinieren Assistent auswählen Kombinieren Sie mehrere Arbeitsblätter aus Arbeitsmappen zu einer Arbeitsmappe Option, und klicken Sie dann auf Weiter Taste. Siehe Screenshot:

3. In dem Arbeitsblätter kombinieren - Schritt 2 von 3 Klicken Sie im Dialogfeld auf die Schaltfläche Verwenden Sie > Reichen Sie das or Mappe Um die Excel-Dateien hinzuzufügen, werden Sie zu einer zusammengeführt. Klicken Sie nach dem Hinzufügen der Excel-Dateien auf Endziel Klicken Sie auf die Schaltfläche und wählen Sie einen Ordner aus, um die Master-Arbeitsmappe zu speichern. Siehe Screenshot:

Jetzt werden alle Arbeitsmappen zu einer zusammengeführt.

Im Vergleich zu den beiden oben genannten Methoden Kutools for Excel hat folgende Vorteile:

  • 1) Alle Arbeitsmappen und Arbeitsblätter werden im Dialogfeld aufgelistet.
  • 2) Deaktivieren Sie für die Arbeitsblätter, die Sie vom Zusammenführen ausschließen möchten, diese Option.
  • 3) Leere Arbeitsblätter werden automatisch ausgeschlossen.
  • 4) Der ursprüngliche Dateiname wird nach dem Zusammenführen als Präfix zum Blattnamen hinzugefügt.
  • Weitere Funktionen dieser Funktion finden Sie unter Bitte besuchen Sie hier.

  Wenn Sie eine kostenlose Testversion wünschen (30-Tag) dieses Dienstprogramms, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Kutools für Excel - Hilft Ihnen, die Arbeit immer im Voraus zu beenden und mehr Zeit zu haben, um das Leben zu genießen
Haben Sie oft Probleme mit der Arbeit, Zeitmangel für sich und Ihre Familie?  Kutools for Excel kann Ihnen helfen, damit umzugehen 80% Übertreffen Sie Rätsel und verbessern Sie die Arbeitseffizienz um 80%, damit Sie mehr Zeit haben, sich um die Familie zu kümmern und das Leben zu genießen.
300 fortschrittliche Tools für 1500 Arbeitsszenarien machen Ihre Arbeit so viel einfacher denn je.
Sie müssen sich keine Formeln und VBA-Codes mehr merken, sondern ruhen sich von nun an aus.
Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
Reduzieren Sie täglich Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
Werden Sie in 3 Minuten ein Excel-Experte, helfen Sie Ihnen, schnell erkannt zu werden, und fördern Sie die Gehaltserhöhung.
110,000 hochwirksame Mitarbeiter und mehr als 300 weltbekannte Unternehmen.
Machen Sie Ihre $ 39.0 mehr wert als $ 4000.0 Training von anderen.
Kostenlose Testversion mit vollem Funktionsumfang 30-Tag. 60 Tage Geld-zurück-Garantie ohne Grund.

Kommentare (146)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, bitte helfen Sie mir bei der folgenden Bedingung. Ich habe eine andere Arbeitsmappe mit jeweils mehr als 5 Arbeitsblättern in unterschiedlichen Pfaden. Ich muss alle Arbeitsblätter aus verschiedenen Arbeitsmappen in einer einzigen Arbeitsmappe konsolidieren. Kann mir jemand helfen, mit macro.TIA zu lösen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Hallo, bitte helfen Sie mir bei der folgenden Bedingung. Ich habe eine andere Arbeitsmappe mit jeweils mehr als 5 Arbeitsblättern in unterschiedlichen Pfaden. Ich muss alle Arbeitsblätter aus verschiedenen Arbeitsmappen in einer einzigen Arbeitsmappe konsolidieren. Kann mir jemand helfen, mit macro.TIA zu lösen!Von A. Karthi[/quote] Bitte gehen Sie zum Herunterladen und Installieren der Kutools für Excel, Sie können es schnell erledigen. Aber wenn Sie ein VBA verwenden möchten, kann es zu kompliziert sein. Weitere Informationen zur Durchführung finden Sie unter:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
KUTOOLS Tolle Lösung. Ich brauche noch eine Hilfe, wenn ich eine Master-Arbeitsmappe erstelle, dann wird die Zellenfarbe des Arbeitsblatts gegenüber dem ursprünglichen Arbeitsblatt geändert. Wie kann ich es wie das ursprüngliche Arbeitsblatt halten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Unser Büro verfügt über doppelte Daten (dh Name, Adresse, Stadt, Betrag, Datum der Unterschrift) aus mehreren Excel-Originalen, und der Versuch, die Daten zu kombinieren, wird noch in Arbeit sein. Wie kann das getan werden, um doppelte Arbeit und doppelte Informationseingaben zu vermeiden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich erhalte einen „Laufzeitfehler 1004“, die Kopiermethode der Arbeitsblattklasse ist in der Zeile fehlgeschlagen, die lautet: Sheet.Copy After:=ThisWorkbook.Sheets(1). Ich verwende Excel 2010. Können Sie mir helfen? Danke, - Susi
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey Susie, ich arbeite selbst schon seit einiger Zeit an diesem Problem und erhalte den gleichen Fehler. Überprüfen Sie, ob das Modul unter PERSÖNLICH anstatt unter Ihrer aktiven Arbeitsmappe erstellt wurde. Nachdem ich das Modul unter dem richtigen Baum erstellt hatte, funktionierte der folgende Code einwandfrei. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub Hoffe das hilft!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. Dein Code hat gut funktioniert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Ich erhalte einen „Laufzeitfehler 1004“, die Kopiermethode der Arbeitsblattklasse ist in der Zeile fehlgeschlagen, die lautet: Sheet.Copy After:=ThisWorkbook.Sheets(1). Ich verwende Excel 2010. Können Sie mir helfen? Danke, - SusiVon Susie[/quote] Hatte das gleiche Problem, es funktioniert, wenn ich "PERSONAL" anzeigen und einblenden gehe, scheint es Probleme zu haben, auf dieses Makro zuzugreifen, wenn der Master versteckt ist.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gehen Sie zum Anzeigen und Einblenden von "PERSONAL" - es scheint Probleme zu geben, den gesamten Code auszuführen, während der Master ausgeblendet ist. Sie können das Makro für diese Arbeitsmappe nativ machen, aber Sie müssten das Ganze jedes Mal neu erstellen, wenn Sie es verwenden wollten
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi! Vielen Dank für diese Datei............. :roll: Best Regard
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey super Tipp. Tat fast alles was ich wollte. Im kombinierten Arbeitsbuch hätte ich es geliebt, wenn der Name des Arbeitsblatts den Namen des ursprünglichen Arbeitsbuchs enthält, damit ich weiß, aus welchem ​​Arbeitsbuch die Daten stammen. Die Daten, die ich kombiniere, stammen aus verschiedenen Archiven. Ich muss nach einem Eintrag suchen, weiß aber nicht, in welchem ​​Archiv er sich befindet. Durch die Zusammenfassung aller Daten in einer Datei kann ich also alle Archive gleichzeitig durchsuchen. Aber ich muss noch wissen, in welchem ​​Archiv der Eintrag ist. Henrik
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Damit der Code den Dateinamen enthält, tun Sie dies einfach. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel Combine\" Filename = Dir(Path & "*.xlsx") Do While Filename "" Workbooks.Open Filename:= Pfad & Dateiname, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Sub Note : Dies dient dazu, nur das erste Blatt zu kopieren, es kann angepasst werden, um alle Blätter zu kopieren
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie binden Sie weitere Blätter ein und wie geben Sie eine andere Masterdatei an, um alle Blätter einzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es ist in der Tat eine großartige Lösung. Danke. Ein Problem: Wenn ich es so ausführe, fragt Excel, ob ich Änderungen vor dem Schließen speichern möchte (da der Name geändert wurde), und ich möchte dies nicht für jede Datei tun (ungefähr 32 pro Ausführung). Gäbe es eine Möglichkeit dies zu lösen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist super :lol: hat mir sehr geholfen....
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke Kumpel, du hast meinen Tag mit dieser sehr hilfreichen Website versüßt... Eigentlich wollte ich auch die gleichen Kopfdaten verschiedener Blätter in 1 Hauptarbeitsblatt kombinieren, das KUTOOL für Excel hat mir sehr geholfen... Nochmals vielen Dank .... :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für die wertvollen Informationen. Das funktioniert wirklich. Die in diesem Artikel aufgeführten Schritte haben meine Arbeit wirklich erleichtert. Danke Dinesh
Dieser Kommentar wurde vom Moderator auf der Website minimiert
danke, dass du dein wissen teilst
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie erhalten Sie es, die Änderungen aus der ursprünglichen Arbeitsmappe zu aktualisieren? Ich versuche, eine nationale Zusammenfassung zu erhalten, bei der jede Region ihre Daten in ihre eigenen Arbeitsmappen eingibt, und dann die nationale Zusammenfassung, die daraus aktualisiert wird? Ich möchte das am Anfang für das ganze Jahr eingerichtet haben und nicht rückwirkend arbeiten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nachdem Sie die Arbeitsblätter in einer Arbeitsmappe kombiniert haben, wie speichern Sie sie? Ich konnte sie nicht speichern. Sie heißt Book1 und ich klicke auf „Speichern“ oder „Speichern unter“, aber es funktioniert nicht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe die Schritte in "Mehrere Arbeitsmappen mit VBA zu einer Arbeitsmappe kombinieren" befolgt und auf "Ausführen" geklickt, nichts ist passiert. Mir sind keine Fehler bekannt und ich bin mir nicht sicher, wie ich sie korrigieren soll. Könntest du mir helfen? Folgendes ist der Code, den ich in eine neue Arbeitsmappe eingebe. Danke Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr geehrte Damen und Herren: Ich habe die Schritte von „Mehrere Arbeitsmappen zu einer Arbeitsmappe mit VBA kombinieren“ befolgt, um das folgende Modul einzurichten, aber es ist nichts passiert. Würden Sie mir helfen, das Problem zu finden? danke Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Blatt In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Für neuere Excel-Versionen versuchen Sie dies. Ich habe meine geöffnete Arbeitsmappe als Katalog gespeichert und alle Dateien befinden sich in c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Versuchen Sie dies für neuere Excel-Versionen. Ich habe meine Arbeitsmappe als Katalog gespeichert, alle Dateien befinden sich in c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Versuchen Sie dies für neuere Excel-Versionen. Ich habe meine Arbeitsmappe als Katalog gespeichert, alle Dateien befinden sich in c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End SubVon Dave[/quote] Ich bekomme ständig "Kann nicht schreibgeschützten Eigenschaften zuweisen" in Bezug auf den Pfad ... Irgendeine Idee?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das Problem auch. Hast du es herausgefunden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Noch nichts ... Habe keine Lösung gefunden oder jemand hat eine Lösung vorgeschlagen. Es tut uns leid...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich auch. Dies funktionierte vor 6 Monaten, das letzte Mal, als ich es ausführen musste. Hat jemand schon die Lösung gefunden? Wenn Sie es vorher ausgeführt haben und es jetzt nicht funktioniert, könnte es etwas mit einem Update von Microsoft zu tun haben? Dies ist ein wirklich praktisches Tool für meine Aufgaben und spart mir viel Zeit. Was könnte sich geändert haben, das dazu führen würde, dass Excel diese Meldung plötzlich anzeigt? Da ich ziemlich neu in VBA bin, habe ich wenig Ahnung, wo ich anfangen soll, die Logik zu analysieren. Mit freundlichen Grüßen Gregor. Glasgow, Schottland.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es scheint, dass "Path" jetzt reserviert ist, verwenden Sie also einfach einen anderen Namen und ersetzen Sie "Path", zB "Mypath".
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielleicht sollten Sie ReadOnly:=True in ReadOnly:=False ändern, ich habe es getan und es war hilfreich
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe nach etwas in dieser Richtung gesucht, wollte aber einen Kommentar abgeben. Muss der Do While Filename "" nicht etwas anderes als "" sein? oder lese ich das falsch? Vielleicht Do While NOT filename = "" Nur ein Gedanke ...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte alle Blätter in einem Blatt zusammenfassen, in dem die Überschriften gleich sind ... bitte helfen Sie
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe versucht, die obigen Makros zu verwenden, um einige Dateien zu sortieren, leider keine Ergebnisse ... kann mir jemand helfen, das manuelle Sortieren von Dateien loszuwerden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe 112 Excel-Blätter, die ich ohne Kopieren und Einfügen in ein einziges Blatt einfügen möchte. Bitte hilf mir.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Arbeitsmappe, die ungefähr 250 Blatt enthält. Ich muss Cobain in einem Blatt zusammenfassen. Bitte geben Sie mir eine Lösung
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Probieren Sie das aus ... Ich habe das von einer anderen Seite bekommen, aber leider kann ich mich nicht an den Namen der Dame erinnern, also entschuldige ich mich dafür, dass ich sie nicht erwähnt habe, mein Fehler. Kombinieren Sie mehrere WBs in Excel: Denken Sie daran, MyPath zu ändern = ) Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 2 Then Exit Sub Do Until strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Set wsSrc = wbSrc.Worksheets(0) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDst.Worksheets(1). Löschen Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe den Code in ein Modul eingefügt. Benannt das Excel-Buch Masterfile. Wo im Code füge ich hinzu. Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Keines davon hat bei mir funktioniert, ich habe es endlich zum Laufen gebracht. FYI Ich verwende 2010 'Beschreibung: Kombiniert alle Dateien in einem Ordner zu einer Masterdatei. Sub MergeFiles() Dim path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet = 2 ' Startzeile in den Blättern, die Sie von ThisWB kopieren = ActiveWorkbook.Name path = "mypath....." ' Vergessen Sie nicht, dies zu ändern Application.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets(1) Filename = Dir(path & "\*.xls", vbNormal) If Len(Filename) = 0 Then Exit Sub Do Until Filename = vbNullString If Not Filename = ThisWB Then Set Wkb = Workbooks.Open(Filename: =Pfad & "\" & Dateiname) Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Select Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Fertig!" End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie bearbeite ich dies, damit die eingezogenen Daten immer in der obersten Zeile beginnen? Wenn ich diesen Code zweimal ausführe, fügt er die Daten an das Ende meiner vorherigen Daten (von der ersten Ausführung des Makros) an.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ändern Sie diese Zeile: RowofCopySheet = 2 in RowofCopySheet = 1
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HI, ich habe mehrere Excel-Dateien (einzelne Blätter) in verschiedenen Ordnern mit Passwortschutz. Ich möchte am Ende des Tages alle Daten zu einer Masterdatei zusammenführen. Jedes Mal, wenn ich das Passwort eingeben und die Datei öffnen und kopieren und in die Masterdatei einfügen muss. Bitte helfen Sie mir mit dem VBA-Code dafür.
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL