Opslaan file

[PeetHil]

Op Blad1 heb ik een knop met daaronder het subje:

Sub Opslaan()

ActiveWorkbook.Save

End Sub


In ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

Sheets("Blad2").Select

End Sub

Als ik Control+S gebruik dan wordt Blad2 op het scherm getoond en de file gesaved.
Als ik op de knop klik dan wordt Blad2 niet getoond en de file gesaved.

Wat kan de oorzaak zijn dat ik Blad2 niet te zien krijg?

Groeten,

Peter.

 

[Gert Bouwmeeste]

En deze dan:

Sub Opslaan()

Sheets("Blad2").Select
ActiveWorkbook.Save

End Sub

 

[PeetHil]

Bedankt voor de reactie Gert,

Het gaat om het feit dat het commando 'Sheets("Blad2").select' niet uitgevoerd wordt.

Groeten,

Peter.

 

[Wigi]

Dat is inderdaad raar. Ik heb er ook op dit moment geen uitleg voor.

Wordt

Sheets("Blad2").Select

mee bij Opslaan() gezet, dan werkt het wel. Reden onbekend.

Wigi

 

[Wigi]

Hier is exact dezelfde vraag, zonder oplossing ook:

http://www.mrexcel.com/forum/showthread.php?t=280028&highlight=select+sheet+workbook_beforesave