title image


Smiley Re: 'Please read your manual' VBA -> Datei schliesen geht nicht!?!
Danke für deine Mühen!



funktioniert das mit dem RunAutoMacros bei dir?? Bei mir leider NICHT!

Die Reaktion ist genau die gleiche :( die Test1.xls bleibt offen.

Das einzigste was funktioniert ist das:

(damit bin ich aber nicht ganz zufrieden weil der code in BeforClose 2 mal ausgeführt wird. Beim schliesen über die Schaltfläche kommt 2 mal die MsgBox.)







Public Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Workbooks("test1.xls").Close False

On Error GoTo 0



MsgBox "test1 geschlossen"

End Sub



'CommandButton

Workbooks("test.xls").Workbook_BeforeClose False

Workbooks("test.xls").Close False


SAmUle aus dem Schwabenland
P.s.
Bibel - Mattäus 7,8 Denn wer bittet, der empfängt; und wer sucht, der findet; und wer anklopft, dem wird aufgetan.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: