Laufzeitfehler 1004
11.07.2007 16:19:00
Andre
habe den og. Fehler und den u.g. Code.
Folgender Fehler wird gemeldet:
Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Die 11. Zeile wird gelb makiert.
Was mache ich falsch? Habt ihr einen Tipp für mich?
Gruß
Andre
Sub namen_kopieren()
ActiveSheet.Unprotect Password:="pw"
Workbooks.Open Filename:= _
"P:\test\liste.xls", _
UpdateLinks:=3
Sheets("Liste").Select
Range("B11:D40").Select
Selection.Copy
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("A4").Select
ActiveSheet.Paste
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("D3:D33").Select
Range("m9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pw"
End Sub