Hallo Thea,
also fuer einen Durchgang, wie von dir beschrieben, mal so:
Sub kopieren()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = Workbooks("Anton")
Set WB2 = Workbooks("Berta")
Set WS1 = WB1.Sheets("Alpha")
Set WS2 = WB2.Sheets("Beta")
WB1.WS1.Range("A1").Copy
WB2.WS2.Range("B2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Wenn du aber, wie du sagst, mehrere Durchgaenge machen willst muesstest du immer die Zelle anpassen.
Beschreib doch mal genau, was du machen willst. Sind es zusammenhaengende Zellbereiche, die du kopieren willst? Oder wirklich Zelle fuer Zelle?
Wenn Zelle fuer Zelle, dann waere vielleicht eine Schleife angebracht.
Aber dazu braucht es etwas genauere Beschreibung.
Gruss Torsten
|