Hallo Marco,
mit Union können getrennte Bereiche zusammen angesprochen werden. Wenn du sie kopierst, stehen die Zellen aber unmittelbar nebeneinander. Soll das nicht sein, kannst du sie, wie vorgeschlagen, einzeln kopieren. Da ich nicht weiß, was du willst, zeige ich die die Anwendung von Union
Set ad = Workbooks("Name des geöffneten Quellworkbooks").Sheets("Name des Quelltabellenblattes")
i=val(inputbox(Kopierzeilennummer))
If i < 1 Then i = 1
Set Gruppe1 = Union(ad.Cells(i, 1), ad.Cells(i, 4), ad.Cells(i, 6))
Gruppe1.Copy
Workbooks("Name des geöffneten Zielworkbooks").Sheets("Name des Zieltabellenblattes").Cells(Zielzeile,Zielspalte).PasteSpecial
Gruß
Holger
|