Error 1004 blijft terugkomen

[huijb]

In Excel VBA heb ik de volgende code;

If Range("Z48") > 1 Then  
application.ScreenUpdating = False  
Selection.Copy  
Workbooks.Open ThisWorkbook.Path & "\0204verpak.xls"  
Sheets("maanochtend").Activate  
Range("B36").Select  
ActiveSheet.Paste  
Range("m36").Value = Range("n36").Value + 1  Range("n36").ClearContents  
Workbooks("0204verpak.xls").Close SaveChanges:=True 
application.CutCopyMode = True

maar als ik de macro uitvoer krijg ik de foutmelding "Fout 1004 Methode paste van klasse Worsheet is mislukt" waarbij er wordt verwezen naar ActiveSheet.Paste. Wie weet raad?

 

[huijb]

Subtiel schopje.

 

[fra]

Ik beperk me tot het louter werkend maken van de macro ; )

If Range("Z48") > 1 Then  
application.ScreenUpdating = False  
Selection.Copy  
Workbooks.Open ThisWorkbook.Path & [b]"0204verpak.xls"[/b]  
Sheets("maanochtend").Activate  
Range("B36").Select  
ActiveSheet.Paste  
Range("m36").Value = Range("n36").Value + 1  
Range("n36").ClearContents  
Workbooks("0204verpak.xls").Close SaveChanges:=True 
application.CutCopyMode = [b]False[/b]

 

[huijb]

Krijg nu de melding dat hij 0204verpak.xls niet kan vinden en dat klopt ook wel want de slash ontbreekt. Daarna krijg ik toch weer de 1004 error.

 

[fra]

Bij mij werkt de macro zoals ik hem aanpaste (getest uiteraard).
Je foutmelding duidt er op dat de werkkmap en/of werkblad niet kan worden gevonden.

 

[huijb]

In een leeg bestand werkt het bij mij ook, maar in het bestand wat ik heb niet. Als ik het bestand open dan heb ik dit o.a. in de sheet staan;
Private Sub Workbook_Open()
Sheets("hoofd").Select
Worksheets("hoofd").Shapes("Text Box 37").Select
Selection.Characters.Text = "Week 01 2004"
With Selection.Characters(Start:=1, Length:=12).Font

.Name = "Comic Sans MS"
.FontStyle = "Standaard"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End sub
haal ik bovenstaande weg werkt het wel. Ik denk dat ik daarvoor een andere oplossing moet zoeken.