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

Inhalte aus vielen TBlättern in ein TB kopieren

Forumthread: Inhalte aus vielen TBlättern in ein TB kopieren

Inhalte aus vielen TBlättern in ein TB kopieren
24.10.2008 17:24:28
Bernhard
Hallo liebe Excel Freunde,
brauche mal wieder Eure Hilfe. In einer Excel-Mappe habe ich ca. 50 Tabellenblätter mit gleichem Aufbau. Spalte A - Datum, Spalte B - Preis. Nun möchte ich ein Tabellenblatt in dem die Inhalte dieser Spalten A und B der 50 Blätter nebeneinander stehen. Ich komme selber einfach nicht weiter - es ist ja Freitag und der Kopf ist leeeeeeeeeer!
Beispieldatei ist angefügt.
https://www.herber.de/bbs/user/56247.xls
Danke für Eure Hilfe.
Gruss
Bernhard
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte aus vielen TBlättern in ein TB kopieren
24.10.2008 17:34:00
ransi
HAllo Bernhard
Mal ganz ohne irgendeine Fehlerroutine:
Option Explicit


Public Sub machs()
Dim Ws As Worksheet
Dim Ziel As Worksheet
Dim erste_freie As Range
Set Ziel = Worksheets("Zusammenschau")
Set erste_freie = Ziel.Range("A1")
For Each Ws In Worksheets
    If Ws.Name <> Ziel.Name Then
        Ws.Range("A1").CurrentRegion.Copy erste_freie
        Set erste_freie = Ziel.Range("IV1").End(xlToLeft).Offset(0, 1)
    End If
Next
End Sub

ransi
Anzeige
AW: Inhalte aus vielen TBlättern in ein TB kopieren
24.10.2008 17:58:00
Bernhard
Hallo Ransi,
Super! Es funktioniert. Du hast mir das Wochenende gerettet! Jetzt komme ich weiter.
Nochmals Danke
Gruss
Bernhard

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige