Office: (Office 2013) Tabellenblätter untereinander kopieren

golochim · 17. Mai 2017

Hallo,

ich versuche i meinem Arbeitsblatt zwei Tabellen, die immer wieder aktualisiert werden, untereinander in einer neuen Tabelle zu kopieren.

Dazu habe ich ein Makro gefunden:

Code:

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier habe ich das Problem, dass alle Tabellenblätter kopiert werden. Ich möchte aber nur zwei der Tabellenblätter (FS16 und FS17) untereinander kopieren. In beiden Tabellen stehen in der erste Zeile die Überschriften. Die Daten stehen in dem Bereich A:aY mit unterschiedlichen Anzahl von Zeilen.

Könnte mir jemand das Makro anpassen???

Vielen Dank!

LG

Jojo

:)

RPP63 · 19. Mai 2017

Moin!
Code:

For i = 2 To .Worksheets.Count
If Worksheets(i).Name = "FS16" Or Worksheets(i).Name = "FS17" Then
'Dein weiterer Code
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Hajo_Zi · 19. Mai 2017

ich habe mich mal an Deinen Codeansatz gehalten.
Code:

Option Explicit

Sub TabellenKopierenUntereinander()
Dim i As Integer
Dim RnG As Range
Dim RnG1 As Range
With ActiveWorkbook
'neue Tabelle an die erste Position einfügen
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
If Worksheets(i).Name = "S16" Or Worksheets(i).Name = "FS17" Then
'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
End If
Next
End With
Set RnG = Nothing
Set RnG1 = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

golochim · 19. Mai 2017

Super!

Vielen Dank für die super schnelle Hilfe!

LG Jojo

Office: (Office 2013) Tabellenblätter untereinander kopieren

Tabellenblätter untereinander kopieren

Tabellenblätter untereinander kopieren

Tabellenblätter untereinander kopieren

Tabellenblätter untereinander kopieren - Similar Threads - Tabellenblätter untereinander kopieren

Arbeitszeiten aus mehreren Tabellenblätter

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Textblock/Zellbereich aus Tabellenblatt in Worddokument übergeben

Ein Tabellenblatt, dass in mehrfach verwendet wird aktuell halten

Daten in anderes Tabellenblatt übertragen

Über Verknüpfung Tabellenblatt aktivieren

Daten filtern, kopieren und in neuem Tabellenblatt untereinander einfügen