Problem Makro - Bild kopieren
meixner
Hallo zusammen,
wenn ich das untere Makro laufen lasse, bekomme in der Zeile Sheets(1).Shapes("Picture 5").Select
die Fehlermeldung "Laufzeitfehler - 2147024809. Das Element mit angegebenem Namen wurde nicht gefunden und ich weiss nicht warum. In einer anderen Arbeitsmappe hat das Makro einwandfrei funktioniert.
Kann mir jmd. einen Tipp geben?
Viele Grüße
Dani
Sub Copy_Paste()
Workbooks("C_R Kalender_deut. Dividenden final").Sheets("Makrosteuerung").Select
Sheets("alleFonds_ohne Formel").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("alleFonds").Select
Cells.Select
Selection.Copy
Sheets("alleFonds_ohne Formel").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("alleFonds").Select
Sheets(1).Shapes("Picture 5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("alleFonds_ohne Formel").Select
Range("B2").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -60.75
Selection.ShapeRange.IncrementTop -4.5
Range("A15").Select
End Sub
Anzeige