• Code Snippets

  Datei Speichern und schliessen

  Posted by Excel Community on 6. September 2024 at 21:22

   

  [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]

   

  Excel Community replied 1 month, 3 weeks ago 1 Member · 0 Replies

  • VBA
• 0 Replies

Log In to Reply