Hallo,
folgendes Makro kopiert mir den Inhalt aller Arbeitsblätter in ein einziges. Problem: Er kopiert jede Zeile zweimal. Weiß jemand warum?
Sub konsolidieren()
Dim i As Integer
Dim strLC As String
With ActiveWorkbook
.Worksheets.Add After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Name = Format(Now, "dd.mm.yyyy")
'kopiert aus der Tabelle 4 die 3 Reihe in Tabelle1
Worksheets(4).Rows(3).Copy Destination:=Worksheets(Sheets.Count).Rows(1)
For i = 3 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
With .Worksheets(i).UsedRange
'Bereich in String und Bereich festlegen
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Rng = .Range("A4:" & strLC)
Set rng1 = Worksheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp).Offset(1)
'Bereich kopieren
Rng.Copy Destination:=rng1
End With
Next
End With
End Sub
Gruß
Tatjana |