VBA - Werte kopieren
11.10.2021 08:38:42
Christoph
ich war bisher fleißiger Leser in dem Forum und konnte mir damit schon oft helfen.
Leider reichen meine VBA-Kenntnisse aber nicht aus, um das folgende Problem zu lösen:
Ich habe X Tabellenblätter die jeweils eine Tabelle enthalten. Über jeder Tabelle gibt es 4 Zeilen, die nicht benötigt werden, gefolgt von der Überschrift und den jeweiligen Werten. Die Werte sind jedoch verformelt und beziehen sich auf die besagten 4 Zeilen über der Tabelle.
Der Idealfall wäre jetzt, einmal die Überschrift und dann den jeweiligen Inhalt der einzelnen Tabellen als Werte zusammenführen zu können.
Mir würde es aber auch schon reichen, wenn einfach die Formeln nicht mehr kopiert werden, sondern lediglich die Werte. Dann würden zumindest keine falschen Daten durch das kopieren entstehen.
Bisher schaffe ich es nur, das gesamte Tabellenblatt ohne die erste Zeile zu kopieren (auch nur dank Heiko S. aus diesem Forum - vielen Dank!)
Sub TabellenblätterZusammenführen()
Dim intSheets As Integer
Dim lngLastRow As Long
Sheets(ActiveWorkbook.Sheets.Count).Cells.Delete
For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(intSheets).UsedRange.Copy
lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1
Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count).Cells(lngLastRow, 1)
Sheets(ActiveWorkbook.Sheets.Count).Rows(lngLastRow).Delete
Next intSheets
Application.CutCopyMode = False
End Sub
Tausend Dank für eure Hilfe!