Guten Mittag liebes Forum,
ich möchte Datensätze aus verschiedenen Tabellenblättern in das Tabellenblatt "Datensätze" derselben Arbeitsmappe kopieren und untereinanderschreiben. Dabei sollen nur die Werte (und wenn möglich auch die Formate) kopiert werden, nicht jedoch die Formeln mit denen die Datensätze zuvor in den einzelnen Tabellenblättern ermittelt wurden.
Folgendes Makro habe ich mir bereits zusammen kopiert und es funktioniert auch soweit ganz gut - allerdings würde ich gerne programmieren, dass die Daten aus den einzelnen Tabellenblättern immer erst dort eingefügt werden, wo eine leere Zeile vorliegt, da die Länge der Datensätze aus den Tabellenblättern nicht konstant ist. Soll dann im Endeffekt so aussehen, dass die einzelnen Datensätze ohne Zwischenraum untereinander kopiert werden und keine Daten überschrieben werden.
Sub Kopieren()
Set Summarysheet = ThisWorkbook.Sheets("Datensätze")
Summarysheet.Rows.Delete xlUp 'clear summary sheet
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Datensätze" Then
Set DestCell = Summarysheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
ws.Range("a5:u214").Copy
DestCell.PasteSpecial xlPasteValues
DestCell.PasteSpecial xlPasteFormats
End If
Next
Application.CutCopyMode = False
End Sub
Die Hilfe von einem der schlauen Köpfe dieses Forums würde mich sehr freuen.
Gruß Mr. M