Excel, Sheet immer mit EINER Sub beenden
Jaffi
nun habe ich meine App nachgebaut und es funzt auch weider alles so wie es sollte *freu*
Aber bevor ich mir wieder was kaputt mache frage ich mal wieder die Profies. Mit einem X Button _
starte ich eine Sub, welche mir die entsprechenden Sheets säubert und die wichtigen Speichert. _ Diese Sub sieht folgendermassen aus:
Option Explicit
Sub Beenden()
Set wksSheet = Worksheets("Aufnahme")
If bEingabe = True Then
If MsgBox(" " & vbNewLine & " Die erfassten Bestände gehen dadurch _
verloren !", vbYesNo, " Möchten Sie das Programm wirklich beenden?") = vbYes Then
With wksSheet
.Unprotect Password:="test"
If .Cells(.Rows.Count, 1).End(xlUp).Row >= 5 Then
.Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 6)).ClearContents
.Protect Password:="test"
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Save
Application.Quit
End If
End With
Else
Exit Sub
End If
Else
If MsgBox(" Möchten Sie das Programm wirklich beenden?", vbYesNo, " _
_
_
Achtung !") = vbYes Then
With wksSheet
.Unprotect Password:="test"
.Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row + 1, 6)).ClearContents
.Protect Password:="test"
ThisWorkbook.Save
Application.Quit
End With
Else
Exit Sub
End If
End If
End Sub
Nun möchte ich, das man NUR mit dieser Sub Excel schliesst. Wir würdet Ihr das umsetzen?
Hatte an:
Private Sub Worbook_BeforeClose
call Beenden
End Sub
Gedacht, aber das kann glaub ich nicht gehen, denn wenn man EXCEL beendet, wird ja Application.Quit
aufgerufen und dann wieder die Sub Beenden oder? Kling nach einer Endlosschleife.. :/
Also wie gesagt, wie würden die Profis unter euch das umsetzen? Will mir nicht wieder die Tabelle zerschiessen und frage deshalb lieber hier ;)
Tausend Dank und viele Grüsse!!