Tabellenblattinhalt ans Ende der Zieldatei
23.10.2019 08:40:40
Ecki
Ich möchte gerne den Inhalt einer Basistabelle ans Ende einer Zieltabelle kopieren.
Das funktioniert mit dem Modul nur insoweit, dass der Inhalt immer an den Anfang
der Zieltabelle kopiert wird, bedingt durch Cells(2, intI + 1).Select.
Sub Z1_kopieren_Click()
Dim Spalte As Variant, intI As Integer
Spalte = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Application.ScreenUpdating = False
For intI = 0 To 8
Worksheets("Basis").Select
Range(Cells(1, Spalte(intI)), Cells(Worksheets("Basis").Cells(Rows.count, Spalte(intI)). _
_
End(xlUp).Row, Spalte(intI))).Copy
Worksheets("Ziel").Select
Cells(2, intI + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
Application.ScreenUpdating = True
End Sub
Für eine funktionierende Korrektur wäre ich sehr dankbar :)