Ich habe hier ein Makro, um Werte auch einer Tabelle "KKK1" in die aktive Tabelle "KKK2" einzufügen. Leider ist da ein Fehler drin, den ich nicht behoben bekomme. Es kommt eine Fehlermeldung dass der Kopieren- und der Einfügen-Bereich nicht die gleiche Größe haben.
Ich habe im Code A:A stehen, weil der Bereich, der kopiert werden soll, immer wieder mal verschieden groß ist. Es würde also für mich auch reichen, wenn einfach nur der Bereich von Spalte A kopiert wird, bis zu ersten leeren Zeile.
Sub XXX()
' Öffne KKK1.xlsm
Workbooks.Open Filename:="C:\xxx\KKK-1.xlsm"
' Daten der Spalte A aus KKK1 kopieren und in KKK1.xlsm einfügen
Windows("KKK-1.xlsm").Activate
Range("A:A").Copy
Windows("KKK-2.xlsm").Activate
ActiveSheet.Paste
' Schließe KKK1.xlsm
Windows("KKK-1.xlsm").Close
End Sub