Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
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
Inhaltsverzeichnis

Inhalte aus vielen TBlättern in ein TB kopieren

Inhalte aus vielen TBlättern in ein TB kopieren
24.10.2008 15: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

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 15: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 15:58:00
Bernhard
Hallo Ransi,
Super! Es funktioniert. Du hast mir das Wochenende gerettet! Jetzt komme ich weiter.
Nochmals Danke
Gruss
Bernhard

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige