Alle Registerblätter einer Datei zu einem Registerblatt zusammenführen

[Katyprice]

Guten Morgen,

ich habe folgendes Problem:

Aus einer Datenbank erhalte ich eine Datei, aber je Datensatz ein Excel-Registerblatt, alle Daten sind in Zeile 1 und Spalte A bis F aufgeführt - Es ist leider programmseitig nicht möglich alle Daten in einer Exceltabelle auszugeben.

Wie gesagt, es müssen auschließlich Datendaten von ca. 300 Registerblätter aus der 1. Zeile, Spalte A bis F in einem Registerblatt untereinander ausgegeben werden.
Der Aufbau der einzelnen Registerblätter ist immer gleich.

Bisher kopiert meine Kollegin jede einzelne Zeile aus den Registerblättern in ein Registerblatt.

Ohne VBA wäre der Beste Weg 

Eigentlich ist es doch ganz einfach   

Viele Grüße
Katy

[Ralf A]

Hi Katy,

sicher, es ist ganz einfach...   Auch ohne VBA ist eine automatische Zusammenführung möglich. Benutze Power Query (Menü Daten --> Daten abrufen --> Aus Excel Arbeitsmappe oder aus Datei oder aus Ordner.... Genaueres lässt sich jedoch in Unkenntnis der konkreten Situation nicht sagen.

[snb]

Mit VBA der beste Weg:

Code:

Sub M_snb()
  For Each it In Sheets
    If it.Name <> Sheets(1).Name Then it.UsedRange.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Next
End Sub

PS. Auch Powerquery benützt VBA, ist jedoch nicht sichtbar.

[Ralf A]

PS. Auch Powerquery benützt VBA, ist jedoch nicht sichtbar.

Wo hast Du denn diese Information her? Kann ich mir auch nicht vorstellen. M - die PQ Sprache, kann ja nicht nur in Excel verwendet werden, sondern auch in Power BI. MS wird wohl kaum ein neues und mächtiges Tool mit einer eingeschränkten Uralt-Sprache entwickeln.
Im Übrigen ist es falsch, zu behaupten, VBA sei die beste Option. Da, wo VBA nicht zulässig ist, funktioniert PQ immer noch.

[maninweb]

Hallo,

snb

PS. Auch Powerquery benützt VBA, ist jedoch nicht sichtbar.

das ist Unsinn. VBA und PowerQuery M sind zwei völlig unterschiedliche und voneinander unabhängige Sprachen.

Gruß

[schauan]

Hallöchen,

VBA sei die beste Option <> Mit VBA der beste Weg

vielleicht ist es nur das Beste, was man aus VBA raus holen kann