Laufzeitfehler 1004 Pastespecial

Sub TransferDetailedEstimate() Clave = "test" If MsgBox("This command will owerwrite everything in this Sheet. Do you really want to transfer?", vbYesNo + vbQuestion) = vbYes Then Application.ScreenUpdating = False Sheets("Detailed Estimate").Select Range("D4:D2000").Select Selection.Copy Sheets("Detailed Forecast").Select ActiveSheet.Unprotect Clave Range("D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Detailed Estimate").Select Range("L4:L2000").Select Selection.Copy Sheets("Detailed Forecast").Select Range("E4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A4").Select ActiveSheet.Protect Clave Sheets("Detailed Estimate").Select Range("A4").Select ActiveSheet.Protect Clave Application.ScreenUpdating = True Sheets("Detailed Forecast").Select Else Exit Sub End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Ist jetzt schwer zu sagen, dein Makro ist sehr unübersichtlich wegen der vielen Selects.
Die braucht man nicht, die sind nur dem Recorder und unserer Arbeitsweise als Mausschubser geschuldet.
Das ganze Kopieren und einfügen kann man in zwei Zeilen abbilden:
Aus:


Sheets("Detailed Estimate").Select
Range("D4:D2000").Select
Selection.Copy
Sheets("Detailed Forecast").Select
ActiveSheet.Unprotect Clave
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Wird:


Sheets("Detailed Estimate").Range("D4:D2000").Copy
Sheets("Detailed Forecast").Range("D4").PasteSpecial Paste:=xlPasteValues

Das Ein- und Ausschalten des Blattdchutzes machst du genauso, am.Anfang bzw Ende des Vodes für die betroffenen Blätter mit einer Zeile:


Sheets("Detailed Forecast").Unprotect Clave

Schreib den Code erstmal vollständig nach diesem Schema um, dann wird übersivhlicher und man findet schneller den Fehler.
Gruß Daniel

Sub TransferDetailedEstimate() Dim clave As String clave = "test" If MsgBox("This command will owerwrite everything in this Sheet." _ & "Do you really want to transfer?", vbYesNo + vbQuestion) = vbYes Then Application.ScreenUpdating = False Sheets("Detailed Forecast").Unprotect clave Sheets("Detailed Forecast").Unprotect clave Sheets("Detailed Estimate").Range("D4:D2000").Copy Sheets("Detailed Forecast").Range("D4").PasteSpecial Paste:=xlPasteValues Sheets("Detailed Estimate").Range("L4:L2000").Copy Sheets("Detailed Forecast").Range("E4").PasteSpecial Paste:=xlPasteValues Sheets("Detailed Forecast").Protect clave Sheets("Detailed Forecast").Protect clave End If Application.ScreenUpdating = False End Sub

Sub TransferDetailedEstimate() Dim Clave As String, E As Worksheet, F As Worksheet If MsgBox("This command will owerwrite everything in this Sheet. Do you really want to transfer?", vbYesNo + vbQuestion) = vbNo Then Exit Sub Clave = "test" Set E = Worksheets("Detailed Estimate") Set F = Worksheets("Detailed Forecast") E.Unprotect Clave F.Unprotect Clave Application.ScreenUpdating = False E.Range("D4:D2000").Copy F.Range("D4").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False E.Range("L4:L2000").Copy F.Range("E4").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False F.Protect Clave E.Protect Clave Application.ScreenUpdating = True Set E = Nothing: Set F = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread