Einfügen aus mehreren Sheets in bestimmten Bereich
06.09.2017 10:31:17
Peter
Ich möchte aus anderen Sheets Daten in ein einzelnes Sheet übertragen.
Mein Makro fügt die Daten aus anderen Sheets immer in die letzte Zeile (und lässt dabei 2Zeilen frei). Jetzt ist das Problem, dass die Daten immer unterschiedlich viele Zeilen haben.
Ich hätte aber gerne, dass die Zahlen in dem ersten Sheet beispielsweise in A20 die des zweiten Blatt in A40 die des dritten Blatt in A60, usw. eingefügt werden. Unabhängig davon wie viele Zeilen er dann freilassen muss.
Ist das möglich?
Danke schonmal
Sub ()
Dim a
For a = 4 To Worksheets.Count
Sheets(a).Activate
IngLastColumn = ActiveSheet.Cells(5, ActiveSheet.Columns.Count).End(xlToLeft).Column
Range(ActiveSheet.Cells(5, 1), ActiveSheet.Cells(105, IngLastColumn)).Select
Selection.Copy
Worksheets("Überblick").Cells(Worksheets("Überblick").Rows.Count, 1).End(xlUp).Offset(3, 0). _
_
_
PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Next
End Sub