Laufzeitfehler 1004 "Paste" nicht im Debugger!?
M.
das Makro soll von einem Tabellenblatt in ein anderes Bildobjekte kopieren.
Auf meinem Rechner läuft es auch ohne Probleme, bei meinem Kollegen leider nicht. Dort tritt ein fehler in der Zeile
"wksSkizze.Paste wksSkizze.Cells(3, 3)"
auf.
Fehlermeldung:
"Die Methode 'Paste für das Objekt '_Worksheet' ist fehlgeschlagen"
Kurios dabei: Wenn ich den Debugger Schritt für Schritt durch diese Befehle laufen lasse, kommt es zu keinem Fehler!?
Kann mir jemand helfen?
Sub test()
Dim wksObjekte As Worksheet
Dim wksSkizze As Worksheet
Dim sText As String
Set wksSkizze = ActiveWorkbook.Worksheets("Tabelle1")
Set wksObjekte = ActiveWorkbook.Worksheets("Tabelle2")
sText = wksSkizze.Cells(1, 1).Value
If sText = "1" Then
wksObjekte.Shapes.Item("Objekt1").Copy
Else
wksObjekte.Shapes.Item("Objekt2").Copy
End If
wksSkizze.Paste wksSkizze.Cells(3, 3)
End Sub
Anzeige