Hallo liebe Makrofreunde,
ich habe ein Problem mit einem Makro gelöst. Das funktioniert auch gut. Allerdings komme ich mit dem Kopieren und Einfügen von Zellbereichen nicht klar.
Hier ist der funktionierende Absatz, den ich gerne erweitern möchte. Im Code sieht man, dass vom Worksheet "wsQuelle" ein bestimmter Bereich kopiert wird und auf dem Blatt "wsZiel" eingefügt wird.

With wsQuelle
.Range(.Cells(ID + 1, 22), .Cells(ID + 1 - (j - 1), 1)).Copy
wsZiel.Cells(k, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With

Das reicht mir aber nicht. Ich möchte gerne hinter die eingefügten Zeilen in einer Spalte den Wert einer Variable eintragen. Es soll also eine einzige Zelle kopiert werden und im wsZiel hinter den zuvor eingefügten Beriech hinzugefügt werden. Ich erhalte aber einen Laufzeitfehler.

wsQuelle.Range(Cells(ID + 1, 12), Cells(ID + 1, 12)).Copy
wsZiel.Range(Cells(k - j, 25), Cells(k, 25)).PasteSpecial _
xlPasteValues

Ich habe mir diesen Forumbeitrag angeschaut, komme aber mit der Syntax nicht zurecht, da es im besagten Beitrag um zwei verschiedene Workbooks geht. In meinem Fall passiert aber alles in einem Workbook. https://www.herber.de/forum/archiv/1568to1572/1570128_Range_Copy_Value.html