Leider passiert bei der Ausführung deines Codes nichts. Tabellenname und Bereich angepasst.
Sub
KONS()
Dim
Wks
As
Worksheet
Dim
Bereich
As
Range
Dim
strLC
As
String
Dim
i
As
Integer
Set
Wks = Worksheets.Add
Wks.Name =
"All_Data"
With
Worksheets(2).UsedRange
strLC = .Cells(.Rows.Count - 1, .Columns.Count).Address
Set
Bereich = .Range(
"A1:"
& strLC)
Bereich.Copy Destination:= _
Wks.Cells(Rows.Count, 1).
End
(xlUp).Offset(1, 0)
End
With
For
i = 3
To
Worksheets.Count
With
Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count - 1, .Columns.Count).Address
Set
Bereich = .Range(
"A8:"
& strLC)
Bereich.Copy Destination:= _
Wks.Cells(Rows.Count, 1).
End
(xlUp).Offset(1, 0)
End
With
Next
i
Range(
"A10:J1500"
).
Select
With
Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText =
False
.Orientation = 0
.AddIndent =
False
.IndentLevel = 0
.ShrinkToFit =
False
.ReadingOrder = xlContext
.MergeCells =
False
End
With
End
Sub
Das ist bei mir der Code zum Zusammenfassen mehrerer Tabellenblätter auf eine Seite.
Und folgendes habe ich jetzt benutzt zum Ausfüllen weiterer Felder: