Hallo, probiere mal dieses hier:
Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
'REMOVE Set Wks = Worksheets.Add
'REMOVE Wks.Name = "Konsolidierung"
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A2:" & strLC)
Bereich.Copy Destination:= _
Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub
Ich hatte mal ein ähnliches Problem und das im Netz gefunden.... LG
|