Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Tabellenblätter in ein anderes Blatt kopieren

Forumthread: Mehrere Tabellenblätter in ein anderes Blatt kopieren

Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 12:03:58
Gerd
Hallo,

ich möchte die Tabellenblätter "01", "02", "03", "04","05", "06", "07", "08", "09", "10", "11", "12" (jeweils mit unterschiedlicher Länge) mit den Spalten A bis einschließlich i hintereinander in das vorhandene Tabellenblatt "Liste" kopieren. Die o.g. Tabellenblätter sollen ab Zeile 2 kopiert werden und beginnend im Tabellenblatt "Liste" hintereinander ab Zeile 2 eingefügt werden.
Dann sollen alle eingefügten Werte im Tabellenblatt "Liste" nach der Spalte "A" sortiert werden.
Schön wäre es, wenn danach das Tabellenblatt "Liste" noch nach zwei Kriterien gefiltert werden könnte: 1) Zellen in Spalte G haben einen Wert größer als 0 und 2) Zellen in Spalte i sind leer.

Über eine Lösung würde ich mich freuen.

Mit freundlichen Grüßen

Gerd
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 12:24:54
Raimund
Hi Gerd

Teste mal bitte:

Sub DatenKopieren()
Dim wsListe As Worksheet
Dim wsQuelle As Worksheet
Dim i As Integer
Dim letzteZeile As Long

' Zielblatt "Liste" festlegen
Set wsListe = ThisWorkbook.Sheets("Liste")

' Alle gewünschten Quellblätter durchlaufen
For i = 1 To 12
' Quellblatt festlegen
Set wsQuelle = ThisWorkbook.Sheets(Format(i, "00"))

' Letzte Zeile im Quellblatt ermitteln
letzteZeile = wsQuelle.Cells(wsQuelle.Rows.Count, "A").End(xlUp).Row

' Daten kopieren
wsQuelle.Range("A2:I" & letzteZeile).Copy Destination:=wsListe.Cells(wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row + 1, "A")
Next i

' Daten in "Liste" sortieren
wsListe.Sort.SortFields.Clear
wsListe.Sort.SortFields.Add Key:=Range("A2:A" & wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With wsListe.Sort
.SetRange Range("A1:I" & wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

' Filter anwenden
wsListe.Range("A1:I" & wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=7, Criteria1:=">0"
wsListe.Range("A1:I" & wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=7, Criteria1:=">2"
wsListe.Range("A1:I" & wsListe.Cells(wsListe.Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=9, Criteria1:=""
End Sub


Gruss

Raimund
Anzeige
AW: Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 18:25:31
GerdL
Upps,

es fehlte die Wiederholung des Quellblattes u. du wolltest im Zielblatt auch eine Sortierung. 

Sub Unit()

    

    Dim a As Integer

    

    

    With Sheets("Liste")

    

        For a = 1 To 12

            Sheets(Format(a, "00")).Cells(2, 1).Resize(Sheets(Format(a, "00")).Cells(Rows.Count, 1).End(xlUp).Row - 1, 9).Copy _

                                Destination:=.Cells(Rows.Count, 1).End(xlUp).Offset(1)

        Next a

        

        With .Range("A:I")

        

            .Sort Key1:=Sheets("Liste").Cells(2, 1), Order1:=xlAscending, Header:=xlGuess

            

            .AutoFilter

            .AutoFilter field:=7, Criteria1:=">0"

            .AutoFilter field:=9, Criteria1:=""

        

        End With

    

    End With

        



End Sub

Gruß Gerd
Anzeige
AW: Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 12:37:10
GerdL
Hallo Namensvetter,

noch eins. 
Sub Unit()

    

    Dim a As Integer

    

    

    For a = 1 To 12

        Sheets(Format(a, "00")).Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1, 9).Copy _

                            Destination:=Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Offset(1)

    Next

    

    Sheets("Liste").Range("A:I").AutoFilter

    Sheets("Liste").Range("A:I").AutoFilter field:=7, Criteria1:=">0"

    Sheets("Liste").Range("A:I").AutoFilter field:=9, Criteria1:=""





End Sub

Gruß Gerd
Anzeige
AW: Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 13:37:40
Gerd
Danke für Deine Lösung, Raimund! Das Makro funktioniert wie gewünscht!

VG
AW: Mehrere Tabellenblätter in ein anderes Blatt kopieren
09.10.2023 13:09:10
Gerd
Hallo Gerd,

ich bekomme eine Fehlermeldung bei Deinem Makro:
...
Sheets(Format(a, "00")).Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1, 9).Copy _
Destination:=Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Offset(1)
...
In Spalte A bei den Blätter "01" bis "12" stehen bei mir Datumsangaben. Kollidiert das mit ... (format(a, "00") ...?

VG
Anzeige
;

Forumthreads zu verwandten Themen

Mehrere Tabellen zusammenführen
Peter

Hallo,
ich habe folgende Herausforderung zu meistern, und hoffe auf Eure Hilfe!
Ich habe 12 Excel-Datein (Jan - Dez), die jeweils eine Tabelle mit den Spaltenüberschriften: Produktkürzel, Bezeichnung, Produktnummer und Anzahl enthalten. In den Zeilen stehen die jeweils im Monat verkauft...
29.07.2009 14:41:05
Thread-ID: 1092257
7 Beiträge
Anzeige
Daten aus zwei Tabellen zusammenführen
René

Hallo liebe Excelprofis,
ich habe ein Makro mit dem ich zwei Tabellen zusammenführen kann. Allerdings gibt es noch ein _ kleines Problem. Beide Tabellen stehen in einer Datei in der noch andere Tabellen sind. Daher ist es erforderlich das man dem Makro sagt führe nur die Daten aus der Tabe...
06.09.2009 23:08:51
Thread-ID: 1100929
4 Beiträge
Zwei Tabellen zusammenführen
D.

Hallo zusammen,
mal wieder ein für euch sicher kleines Thema, für das ich Unterstützung benötige:
Ich habe eine Tabelle mit Firmen und IDs sowie eine zweite Tabelle mit den IDs und einer spezifischen Reihenfolge. Diese beiden sollen zusammengeführt werden, damit jede Firma mit ID und Re...
25.07.2014 11:24:19
Thread-ID: 1372280
3 Beiträge
Anzeige
Mehrere Tabellenblätter zu einer zusammenfassen
Plato

Guten Tag zusammen,
ich habe eine Frage zum zusammenfassen von Tabellenblättern:
Ich habe eine Excelliste, die mehrere Tabellenblätter enthält.
Komplett gleich angeordnet und von der Form her identisch.
Jedoch beinhaltet jedes TB nur eine Produktgruppe.
Auf einem neuen Tabel...
25.09.2014 11:39:04
Thread-ID: 1383341
2 Beiträge
Anzeige
mehrere Tabellen in eine PDF-Datei zusammenführen
Andy

Hallo,
habe diese Listbox und möchte in dieser Listbox mehrere Tabellen auswählen und als PDF-Datei konvertieren.
Das klappt auch ganz gut.
Nun möchte ich, das diese ausgewählten Tabellen in eine PDF-Datei gespeichert werden.
Der Name und das Datum soll aus Tabelle2 A1 und B1 en...
03.03.2015 19:21:24
Thread-ID: 1412519
2 Beiträge
Mehrere Tabellen (ListObjects) untereinander
Steven

Hallo,
ich habe ein Tabellenblatt in dem ich mehrere Tabellen (ListObjects) untereinander habe.
Die haben jeweils eine unterschiedliche Spaltenanzahl.
Nun möchte ich mittels VBA eine Zeile in einer der Tabellen löschen.
Wenn jedoch die Tabelle, aus der ich eine Zeile löschen möc...
06.05.2015 16:01:51
Thread-ID: 1425022
3 Beiträge
Werte aus mehreren Tabellenblättern kopieren
Kai

Hallo zusammen,
ich nutze ein Makro um aus mehreren Tabellenblättern ein einziges zu erstellen.
Die Quelldateien haben bis zu 50.000 Zeilen sodass sich eine Menge Daten ergeben und das Makro sehr lange läuft. Allerdings sind dort viele Werte mit Null enthalten, die ich in der Zieldatei...
15.09.2015 16:18:01
Thread-ID: 1447599
2 Beiträge
mehrere tabellenblätter zusammenführen
John

Ich habe eine Mappe,
in dieser werden per Makro die jeweils ersten Blätter kopiert und ein eingefügt!
Auf den Blättern befindet sich jeweils eine Rechnung
David
18.05.2015 Rechnungstext 60,-
20.06.2015 Rechnungstext 80,-
Auf dem nächsten Blatt steht dann in den...
22.11.2015 14:16:30
Thread-ID: 1459948
11 Beiträge
mehrere tabellenblätter zusammenführen
John

Ich habe eine Mappe,
in dieser werden per Makro die jeweils ersten Blätter kopiert und ein eingefügt!
Auf den Blättern befindet sich jeweils eine Rechnung
David
18.05.2015 Rechnungstext 60,-
20.06.2015 Rechnungstext 80,-
Auf dem nächsten Blatt steht dann in den gleichen...
28.11.2015 16:30:50
Thread-ID: 1461258
6 Beiträge
Mehrere Tabellenblätter kopieren
Dennis

Guten Morgen Zusammen,
ich versuche gerade, aus einer großen Tabelle (Excel 2010) nur ein paar einzelne Tabellenblätter in eine neue Datei zu kopieren. Das funktioniert soweit gut.
Was ich noch zusätzlich möchte, ist bei jedem einzelnen, zu kopierendem Blatt einen bereich angeben der K...
21.01.2016 10:31:25
Thread-ID: 1470198
2 Beiträge
Zwei Tabellen zusammenführen
Sebastian

Hallo zusammen,
ich scheitere grad an einer scheinbar einfachen Aufgabe:
zwei Excel-Tabellen zusammenführen.
Der Teufel steck wie immer im Detail. Denn die Tabellen haben zwar eine gemeinsame Spalte, in einer der Tabellen kommen aber in der gemeinsamen Spalte die Werte mehrfach vor....
17.03.2016 10:48:00
Thread-ID: 1482543
3 Beiträge
Mehrere Tabellenbl. in ein Tabellenblatt kopieren
Hermann

Hallo zusammen,
ich benötige mal wieder eure Hilfe.
Ich habe eine Exceldatei. In der befinden sich ca.40 Arbeitsblätter die alle das gleiche Format nur andere Werte haben.
Ein Arbeitsblatt hat jeweils 3 Seiten. Der Bereich der 3 Seiten umfasst (A1:Y180)
Nun möchte ich die jeweil...
22.06.2016 20:19:38
Thread-ID: 1500427
4 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