Bestimmte Tabellenteile in eine Tabelle kopieren
27.06.2017 13:56:02
kubden82
ich habe schon ein wenig gefunden, nur ist das nicht ganz passend und ich bekomme es selbst nicht umgeschrieben. Ich habe auf meinen Tabellenblättern im Bereich A17:M17 Werte stehen, diese möchte ich nun auf den letzten Reiter untereinander kopieren.
Dieses habe ich bereits gefunden und es funktioniert gut, nur bekomme ich das nicht auf meinen Bereich umgeschrieben:
Sub ZusammenFuehren()
Dim intSheets As Integer
Dim lngLastRow As Long
' Das nur wenn gewünscht, löscht die letzte Tabelle vor dieser Aktion.
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
Vielen Dank
kubden82