Sub
Tabellen_zusammen_fuehren()
Dim
oTargetSheet
As
Object
Dim
s
As
Long
Dim
z
As
Long
Dim
j
As
Long
Dim
wks
As
Worksheet
Dim
Data
As
Variant
Dim
lngI
As
Long
Dim
aletzte
As
Long
Dim
zletzte
As
Long
Application.ScreenUpdating =
False
Set
oTargetSheet = ActiveWorkbook.Sheets(
"Tabelle1"
)
letztespalte = oTargetSheet.Cells(1, 256).
End
(xlToLeft).Column
oTargetSheet.Activate
Data = Range(Cells(1, 1), Cells(1, letztespalte))
For
Each
wks
In
ActiveWorkbook.Worksheets
If
Not
wks.Name = oTargetSheet.Name
Then
aletzte = wks.Cells(Rows.Count, 1).
End
(xlUp).Row + 1
With
oTargetSheet
zletzte = .Cells(Rows.Count, 1).
End
(xlUp).Row + 1
For
lngI = LBound(Data)
To
UBound(Data)
Spalte = Data(1, lngI)
wks.Range(wks.Index(2, Spalte), wks.Index(aletzte, Spalte)).Copy Destination:=.Index(zletzte, Spalte)
Next
lngI
End
With
End
If
Next
Application.ScreenUpdating =
True
Set
oTargetSheet =
Nothing
Set
oSourceBook =
Nothing
End
Sub