-
Datei Speichern und schliessen
[vba]
Sub Speichern_und_schliessen()
Dim wb As Workbook
Dim wbCount As Long
Dim bHasPersonalWB As Boolean
Dim i As Long
‘ Zählen der geöffneten Workbooks, außer PERSONAL.XLSB
wbCount = 0
bHasPersonalWB = False
For i = 1 To Application.Workbooks.Count
Set wb = Application.Workbooks(i)
If wb.Name <> “PERSONAL.XLSB” Then
wbCount = wbCount + 1
Else
bHasPersonalWB = True
End If
Next i
‘ Wenn es mehr als eine Datei außer PERSONAL.XLSB gibt
If wbCount > 1 Then
ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges:=True
‘ Wenn nur noch eine Datei außer PERSONAL.XLSB offen ist, oder nur PERSONAL.XLSB plus eine andere
ElseIf wbCount = 1 Or (wbCount = 2 And bHasPersonalWB = True) Then
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
[/vba]
-
0 Replies
Sorry, there were no replies found.
Log in to reply.