Meherere Tabellenblätter in ein Blätt zusammenführ
19.09.2018 12:40:23
Anja
ich habe eine Datei mit mehreren Tabellenblättern. Jetzt möchte ich aus drei bestimmten Tabellenblättern den Inhalt in ein vorgegebenes Tabellenblatt untereinander zusammenführen, also nicht aus allen vorhandenen Blättern. Das Zielblatt heißt Zusammenstellung. Die Quellblätter heißen Lieferanten, Finanzamt und Beiträge. Da der Inhalt der Quellblättern unterschiedlich lang ist (Zeilenanzahl), müsste vorher die letzte verwendete Zeile ermittelt werden. Das Ganze soll mithilfe eines Buttons funktionieren, der sich sowohl auf den Quellblättern, als auch auf dem Zielblatt befindet.
Folgender Inhalt soll aus den Quellblättern übertragen werden:
Nur die Werte und Formate
Ab Zeile 18
Spalten A-T
Zielblatt
Inhalt ab Zeile 18 einfügen
Spalten A-T
Ich habe den nachfolgenden Code gefunden, der schön schnell läuft. Leider kann ich ihn nicht so modifizieren, dass er die oben genannten Bedingungen erfüllt.
Außerdem bekomme ich immer die Fehlermeldung Variable nicht definiert, wenn ich ihn in ein Button kopiere, er läuft nur in einem Modul.Ich habe auch noch andere Codes ausprobiert, habe aber etwas Zeitdruck, so dass ich mich mit meinem Problem hierher wende, in der Hoffnung jemand kann mir helfen.
Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
'neue Tabelle an die erste Position einfügen
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
Set Rng = .Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
'Bereich kopieren
Rng.Copy Destination:=rng1
Next
End With
End Sub
Vielen Dank im Voraus!!!!
Anja