AW: Daten kopieren
23.12.2009 00:50:27
Josef
Hallo Robert,
hier mal eine einfache Version.
Sub zusammenfassung()
Dim objSh As Worksheet, objTargetSh As Worksheet
Dim lngLast As Long, lngNext As Long
Set objTargetSh = Sheets("Zusammenfassung") 'Zieltabelle
objTargetSh.Range("A2:D" & Rows.Count).ClearContents
'Namen der Datenblätter anpassen!
For Each objSh In Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4"))
lngNext = objTargetSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
With objSh
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 1), .Cells(lngLast, 4)).Copy objTargetSh.Cells(lngNext, 1)
End With
Next
Set objSh = Nothing
Set objTargetSh = Nothing
End Sub
Gruß Sepp