Speichern - Fehlermeldung bei Verlassen der Datei
kle
...OK, heut komme ich irgendwie nicht weiter. Jetzt habe ich folgendes Problem:
Wenn ich eine Datei schließe, vor allem per "x"-Button, erscheint ein Hinweis von Excel, ob ich die Änderungen speichern möchte. Also schrieb ich folgendes:
' unter "diese Arbeitsmappe"...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
'Application.EnableEvents = False
ActiveWorkbook.Save ' Speichern um alle Änderungen zwingend zu erfassen
' Blende alle Arbeitsblätter bis auf das Startblatt aus
For i = 1 To Worksheets.Count
Select Case Worksheets(i).Name
Case Is = "Start"
Startbloc = True
Worksheets(i).Visible = True
Worksheets("Start").Activate
Worksheets("Start").Range("C1").Value = "" ' Artikelbezeichnung leeren
Worksheets("Start").Range("C2").Value = "" ' ArtikelNr. leeren
Worksheets("Start").Range("A1").Value = 1 ' Zähler wieder auf 1 setzen
Worksheets("Start").Range("C1").Select ' Wieder Fokus auf C1 setzen
Case Else
Worksheets(i).Visible = False
End Select
Next i
ActiveWorkbook.Save ' 2'ter Versuch, Speichern um alle Änderungen zwingend zu _
erfassen
'Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Aber es bleibt bei der Fehlermeldung, obwohl ich doch die Datei nun speichern lasse vor dem schließen?
Dachte dann an
Fehlermeldung unterdrücken - aber dann speichert es die Datei gleich garnicht.
Was kann ich wie tun ?! Die Datei soll doch nur gespeichert werden - vor dem Schließen der Datei.
Danke und Gruß
Kay
PS: da habe ich nun 4 dicke Bücher und google - aber keine richtige Lösung... ;o(