Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte A mehrerer Tabellenblätter zusammenführen

Spalte A mehrerer Tabellenblätter zusammenführen
19.01.2020 16:23:18
DerLeo
Ich habe ca. 100 Tabellenblätter, die in Spalte A von Zeile 4 bis Zeile 200 18-stellige ID-Nummern enthalten. Die Anzahl der Einträge je Tabelle ist verschieden.
Nun möchte ich alle IDs der Tabellenblätter Tabelle (1) bis z.B. Tabelle (100) in einer Gesamtliste in einem neuen Tabellenblatt in Spalte A auflisten.
Hat jemand eine Lösung dafür?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte A mehrerer Tabellenblätter zusammenführen
19.01.2020 17:13:18
Nepumuk
Hallo Leo,
teste mal:
Option Explicit

Public Sub Zusammenfassung()
    
    Dim objTargetWorksheet As Worksheet
    Dim lngIndex As Long
    
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    With ThisWorkbook
        
        Set objTargetWorksheet = .Worksheets.Add(Before:=.Worksheets(1))
        
        For lngIndex = 2 To .Worksheets.Count
            
            With .Worksheets(lngIndex)
                
                Call .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy( _
                    Destination:=objTargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
                
            End With
        Next
    End With
    
    Call objTargetWorksheet.Rows(1).Delete
    
    Set objTargetWorksheet = Nothing
    
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Spalte A mehrerer Tabellenblätter zusammenführ
19.01.2020 18:12:33
DerLeo
Hi,
das sieht fürs Erste schon gut aus.
Es gibt auch Tabellenblätter, die keine IDs enthalten und die ich nicht auslesen möchte. Kann ich die auszulesenden Tabellenblätter definieren. z.B. Liste (1) bis Liste (100)?
Danke
DerLeo
AW: Spalte A mehrerer Tabellenblätter zusammenführ
19.01.2020 18:39:53
Nepumuk
Hallo Leo,
teste mal:
Option Explicit

Public Sub Zusammenfassung()
    
    Dim objTargetWorksheet As Worksheet
    Dim lngIndex As Long
    
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    With ThisWorkbook
        
        Set objTargetWorksheet = .Worksheets.Add(Before:=.Worksheets(1))
        
        For lngIndex = 1 To 100
            
            With .Worksheets("Liste (" & CStr(lngIndex) & ")")
                
                Call .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy( _
                    Destination:=objTargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
                
            End With
        Next
    End With
    
    Call objTargetWorksheet.Rows(1).Delete
    
    Set objTargetWorksheet = Nothing
    
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: eine Lösungsmöglichkeit dazu ...
19.01.2020 17:13:29
neopa
Hallo derLeo,
... ... könnte z.B. der Einsatz von PowerQuery sein. Google brachte mir z.B. folgenden Link:
https://www.tabellenexperte.de/massen-import-mit-powerquery/
Hab mich jetzt allerdings nicht näher damit auseinandergesetzt.
Gruß Werner
.. , - ...

302 Forumthreads zu ähnlichen Themen

Alle Tabellenblätter zusammenführen
amintire

Hallo alle zusammen,
gibt es eine Möglichkeit alle Tabellenblätter in einer zusammenzuführen ?
Also den Inhalt von jedem Tabellenblatt soll in einer Tabelle drinstehen.
Gruß Amina
09.11.2011 19:29:49
Thread-ID: 1237144
2 Beiträge
Anzeige
Daten aus mehreren Mappen zusammenführen
Constantin

Hallo,
ich möchte Daten aus 20 Arbeitsmappen mit gleichem (Spalten-)Aufbau zusammenfügen. Dafür habe ich eine Mappe „Summe“, die in Tabelle1 die Informationen für diese Dateien beinhaltet: Dateiname (Spalte 1), Password (Spalte 2) und den Dateipfad (Spalte 3). Diese Auflistung wird ab Zei...
19.02.2013 18:10:31
Thread-ID: 1300086
3 Beiträge
Daten aus mehreren Tabellenblättern zusammenführen
Kitsune

Hallo zusammen,
nachdem mein unter https://www.herber.de/forum/messages/1316004.html gestelltes Problem erfolgreich gelöst wurde und ich das Skript vom Beispiel ebenso erfolgreich in meine "große" Tabelle implementiert habe, stehe ich vor dem nächsten Problem:
ich mache die Einsatzplanu...
04.06.2013 15:02:38
Thread-ID: 1316249
9 Beiträge
Anzeige
Daten aus mehreren Mappen Zusammenführen
No

Hallo zusammen,
ich benötige bitte eure Hilfe. Ich habe eine Excel-Tabelle mit Mappen. 12 Mappen je ein Monat. Die 13te Mappe soll eine Jahresauflistung sein.
Die Mappe Januar (alle anderen Monate sind gleich aufgebaut) enthält zb. folgende Inhalte:
Daten zu Mietern (sehr viele Mi...
05.07.2014 13:30:40
Thread-ID: 1369003
7 Beiträge
VBA 2 Tabellen zusammenführen und aktualisieren
Emre

Hallo,
ich bin neu hier und weiß ehrlich gesagt auch nicht ob ich in den richtigen Bereich schreibe.
Auf jeden Fall habe ich schon sehr viel im Netz gesucht, bin auch ein bisschen fündig geworden, aber so richtig weit bin ich nicht gekommen.
Es geht um folgendes, ich bin Werkstuden...
30.05.2015 14:00:17
Thread-ID: 1428444
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
Daten aus mehreren Blättern zusammenführen
Frank

Hallo zusammen
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern.Diese sind alle gleich aufgebaut.Die Tabellen umfassen jeweils 100 Zeilen und 15 Spalten.
Jetzt würde ich mir gerne in einem anderen Arbeitsblatt (Auswertung)die Einträge der Zeilen aus allen Blättern anzeigen lasse...
21.01.2016 10:12:19
Thread-ID: 1470185
5 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
1
13
2
8
4
6
1
10
5
4
2
8
9
5
1
7
1
4
2
9
6
1
7
1
14