Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus mehrere Tabellenblätter kopieren

Daten aus mehrere Tabellenblätter kopieren
Sebastian
Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nicht mehrere Blätter (automatisiert von 1 bis zum letzten) ansteuern.
Vielen Dank für die Hilfe!
Sub Euribor()
Dim A As Double
Dim Bereich As Range
Dim zelle As Range
Dim i As Integer
A = Range("C1").Value
ThisWorkbook.Sheets.Select
Selection.CurrentRegion.Columns(1).Select
For Each zelle In Selection
If zelle.Value = A Then
Range(zelle.Offset(1, 1), zelle.Offset(1, 15)).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B3").Select
ActiveCell.Value = ActiveCell.Value
Selection.PasteSpecial
End If
Next zelle
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten aus mehrere Tabellenblätter kopieren
07.03.2011 17:12:03
Tino
Hallo,
kannst es mal so versuchen
Sub test()
Dim lngNextRow As Long, oWS As Worksheet

With Sheets.Add 'neue Tabelle 
    lngNextRow = 2 'erste Einfügezeile 
    For Each oWS In ThisWorkbook.Worksheets 'Schleife über die Tabellen 
        If oWS.Name Like "####" Then 'besteht Tabellenname aus 4 Zahlen? 
            oWS.Rows(2).Copy .Cells(lngNextRow, 1) 'Zeile 2 kopieren 
            .Rows(lngNextRow).Value = .Rows(lngNextRow).Value 'Formel durch Werte ersetzen 
            lngNextRow = lngNextRow + 1 'nächst Zeilennummer 
        End If
    Next oWS 'nächste Tabelle 
End With
End Sub
Gruß Tino
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Daten aus mehreren Tabellenblättern kopieren


Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei, die die mehreren Tabellenblätter enthält.
  2. Erstelle ein neues Tabellenblatt (z.B. mit dem Namen "Kopierte Daten"), wo die Daten gesammelt werden sollen.
  3. Öffne den VBA-Editor:
    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  4. Füge einen neuen Modul hinzu:
    • Rechtsklicke auf „VBAProject (deinDateiname)“ > Einfügen > Modul.
  5. Kopiere den folgenden VBA-Code in das Modul:
Sub DatenAusMehrerenTabellenblaetternKopieren()
    Dim lngNextRow As Long
    Dim oWS As Worksheet

    With Sheets.Add ' Neue Tabelle
        lngNextRow = 2 ' Erste Einfügezeile
        For Each oWS In ThisWorkbook.Worksheets ' Schleife über die Tabellen
            If oWS.Name Like "####" Then ' Besteht Tabellenname aus 4 Zahlen?
                oWS.Rows(2).Copy .Cells(lngNextRow, 1) ' Zeile 2 kopieren
                lngNextRow = lngNextRow + 1 ' Nächste Zeilennummer
            End If
        Next oWS ' Nächste Tabelle
    End With
End Sub
  1. Führe das Makro aus:
    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle das Makro aus und klicke auf „Ausführen“.

Jetzt solltest du die Daten aus mehreren Tabellenblättern in ein Tabellenblatt kopiert haben.


Häufige Fehler und Lösungen

  • Fehler: "Der Objektverweis ist nicht auf eine Instanz des Objekts festgelegt."

    • Lösung: Stelle sicher, dass die Tabelle, die du kopieren möchtest, existiert und der Name korrekt ist.
  • Fehler: Daten werden nicht kopiert.

    • Lösung: Überprüfe, ob die Blätter tatsächlich den Namen im Format „####“ haben. Andernfalls wird die Schleife sie überspringen.

Alternative Methoden

Wenn du excel mehrere Tabellenblätter in ein Tabellenblatt kopieren ohne makro möchtest, kannst du die folgenden Schritte ausführen:

  1. Verwende die Funktion KOPIEREN und EINFÜGEN:

    • Gehe zu jedem Tabellenblatt, markiere die gewünschte Zeile (z.B. Zeile 2) und kopiere sie.
    • Füge sie in das neue Tabellenblatt ein.
  2. Verwende die VERWEIS-Formel:

    • Setze in das neue Tabellenblatt Formeln ein, die auf die entsprechenden Zellen in den anderen Tabellenblättern verweisen.

Praktische Beispiele

  • Beispiel 1: Angenommen, du hast die Blätter „0104“, „0204“, „0504“ usw. und möchtest die 2. Zeile in die neue Tabelle „Kopierte Daten“ kopieren. Der oben gegebene VBA-Code erledigt dies automatisch.

  • Beispiel 2: Wenn du excel daten in mehrere tabellenblätter kopieren möchtest, kannst du ähnliche VBA-Methoden verwenden, um Daten von einem Tabellenblatt auf mehrere andere zu verteilen.


Tipps für Profis

  • Nutze die Pivot-Tabelle, um Daten aus mehreren Arbeitsblättern zusammenzufassen. Dies kann die Analyse erheblich vereinfachen.
  • Denke daran, Tabellenblätter zu duplizieren, bevor du große Änderungen vornimmst, um Datenverluste zu vermeiden.
  • Verwende Namen für Bereiche, um die Lesbarkeit deiner Formeln zu verbessern, wenn du excel formel über mehrere tabellenblätter kopieren möchtest.

FAQ: Häufige Fragen

1. Wie kann ich alle Tabellenblätter in ein Tabellenblatt kopieren? Du kannst den oben genannten VBA-Code verwenden, um die 2. Zeile aus allen Tabellenblättern zu kopieren. Passe die Logik an, um weitere Zeilen zu integrieren.

2. Gibt es eine Möglichkeit, dies ohne VBA zu tun? Ja, du kannst die Daten manuell kopieren oder Formeln verwenden, um auf die benötigten Zellen zuzugreifen. Beachte jedoch, dass dies zeitaufwendig sein kann, wenn du viele Blätter hast.

3. Was ist der schnellste Weg, um mehrere Tabellenblätter zu kopieren? Die Verwendung von VBA ist der schnellste und effizienteste Weg, um excel mehrere tabellenblätter kopieren zu können.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige