Tabellen untereinander kopieren VBA
18.01.2019 13:17:25
Alexander
wie sage ich dem Code dass er die Tabellen erst ab Zeile 2 erfasst ?
und keine neue Tabelle erstellt sondern immer die aktuelle überschreibt?
Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
.Worksheets.over Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
Set Rng = .Worksheets(i).UsedRange
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
Rng.Copy Destination:=rng1
Next
End With
End Sub
Anzeige