Werte unter Spaltenüberschrift kopieren

Guten Morgen zusammen,
ich stehe vor der Herausforderung, dass ich aus einem Tabellenblatt (1) verschiedene Werte in ein neues Tabellenblatt (2) kopieren und einfügen möchte. Dabei müssen aber in beiden Tabellen die jeweiligen Überschriften beachtet werden. Hintergrund dazu ist, dass ich eine Tabelle via Mail erhalte, deren Format ich ändern muss, um sie weiterverarbeiten zu können.
Und zwar soll das Makro verschiedene Überschriften in der Tabelle 1 suchen und anschließend die Werte darunter kopieren. Die kopierten Werte sollen danach in Tabelle 2 unter Spalten mit anderen Überschriften eingefügt werden.
Bsp: Werte in Tabelle 1 mit Überschrift Test, sollen in Tabelle 2 mit Überschrift Test 2 kopiert und eingefügt werden.
Wer kann mir dazu weiterhelfen?

Hallo!
So:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets(1)
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets(2)
Dim tQ As ListObject: Set tQ = WsQ.ListObjects(1)
Application.ScreenUpdating = False
'Optional: Ziel-Tabellenblatt (2) vorab löschen ohne Überschriften
With WsZ
If .Cells(.Rows.Count, 1).End(xlUp).Row > 1 Then
.Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row).Clear
End If
End With
With tQ.DataBodyRange
.Offset(, 10).Resize(.Rows.Count, 1).Copy
WsZ.Cells(2, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
.Offset(, 8).Resize(.Rows.Count, 1).Copy
WsZ.Cells(2, 2).PasteSpecial (xlPasteValuesAndNumberFormats)
.Offset(, 4).Resize(.Rows.Count, 1).Copy
WsZ.Cells(2, 3).PasteSpecial (xlPasteValuesAndNumberFormats)
.Offset(, 9).Resize(.Rows.Count, 1).Copy
WsZ.Cells(2, 4).PasteSpecial (xlPasteValuesAndNumberFormats)
End With
Application.CutCopyMode = False
Set Wb = Nothing: Set WsQ = Nothing
Set WsZ = Nothing: Set tQ = Nothing
End Sub

Annahme: Das Quell-Blatt 1 sowie das Ziel-Blatt 2 existieren in der Mappe, und im Zielblatt sind die Überschriften vorhanden.
Der Code kopiert die jeweiligen Spaltenwerte in der vorgegebenen Reihenfolge aus der intelligenten Tabelle des Blattes 1 in das Blatt 2 (hier allerdings in einen regulären Zellbereich, ohne intelligente Tabelle).
LG
Michael

Werte unter Spaltenüberschrift kopieren

Forumthread: Werte unter Spaltenüberschrift kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial