würde gerne das alle Excel Datein speichern und schließen wenn ich eine bestimmte Datei öffne.
Würde mich über Hilfe sehr freuen.
Gruß Ralf
Private Sub Workbook_Open()
Dim WB As Workbook
For Each WB In Application.Workbooks
If WB.FullName ThisWorkbook.FullName Then WB.Close (True)
Nex
End Sub
Gruß Gerd
Private Sub Workbook_Open()
Dim WB As Workbook
Application.ScreenUpdating = False
For Each WB In Workbooks
If WB.Name ThisWorkbook.Name Then
WB.Close True
End If
Next
End Sub
LG UweD
Sub sbCloseOther()
Dim lwbOther As Workbook
Workbooks.Open Pfad & Name von deiner Datei, nach deren Öffnen alle anderen geschlossen werden sollen
If ActiveWorkbook.Name Pfad & Name von deiner Datei... Then Exit Sub
For Each lwbOther In Workbooks.Count
If lwbOther.Name ActiveWorkbook.Name Then
lwbOther.Close True
End If
Next
End Sub
Hilfts?