Exceldateien schliessen

Forumthread: Exceldateien schliessen
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Exceldateien schliessen

22.07.2003 12:43:58

Exceldateien schliessen

beim öffen einer bestimmten Excel-Datei sollten alle anderen offenen Exceldateien automatisch schliessen. Kann mir jemand den VBA Code mitteilen.
Danke

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Exceldateien schliessen

22.07.2003 12:53:21

Ivan
AW: Exceldateien schliessen

22.07.2003 12:50:09

Nike
AW: Exceldateien schliessen

22.07.2003 12:57:00

Dani
AW: Exceldateien schliessen

22.07.2003 12:49:09

Michael Scheffler
AW: Exceldateien schliessen

22.07.2003 12:54:12

Dani

AW: Exceldateien schliessen

22.07.2003 12:53:21

Ivan

hi unbekannter
du solltest hier unbedingt deinen namen angeben!!
Sub Alleszu()'außer der mappe mit code
Dim InI As Integer
    For InI = Workbooks.Count To 1 Step -1
        If Workbooks(InI).Name <> ThisWorkbook.Name Then Workbooks(InI).Close True
    Next InI
End If
End Sub
gruss
ivan

AW: Exceldateien schliessen

22.07.2003 12:50:09

Nike

Hi,
ein kleines Hallo und Tschüss sowie ein Name tut keinem weh, oder?
Hier ein Codeansatz:


Private Sub Workbook_Open()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name <> ActiveWorkbook Then
wkb.Close False
End If
Next
End Sub

Bye
Nike

AW: Exceldateien schliessen

22.07.2003 12:57:00

Dani

Hallo Nike
ich bin der Dani und sage Dank
Sorry für mein Tölpelbenehmen

AW: Exceldateien schliessen

22.07.2003 12:49:09

Michael Scheffler

Ja, bitte.

AW: Exceldateien schliessen

22.07.2003 12:54:12

Dani

Hallo
beim öffen einer bestimmten Excel-Datei sollten alle anderen offenen Exceldateien automatisch schliessen. Kann mir jemand den VBA Code mitteilen.
Danke

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!