[VBA] Copy and Paste Image

[thowe]

Hallo Maninweb!

Danke für deine Amtwort

gut das mit dem "Array(...) kann man "umschiffen!
Das erste .Select kann man auch weglassen

Für das "Einfügen" (.Paste) scheint ein Select notwendig wenn man es an/in ein er bestimmten zelle einfügen möchte

Code:

Sub CopyAndPaste(strImageName As String)
    wksData.Activate
    wksData.Shapes(strImageName).Copy
    wksKFZNeu.Activate
    With wksKFZNeu
        .Cells(1, 6).Select
        .Paste
    End With
   
End Sub

für das Einfügen funktioniert ein "einfaches"

Code:

wksKFZNeu.Cells(1,6).Paste

nicht. Warum? <- ich möchte es nur verstehen.....