alles schließen

Bild

Betrifft: alles schließen
von: Tina
Geschrieben am: 22.04.2005 18:14:33
Hallo nochmal,
es sollte doch nicht so schwierig sein alle offenen Excel-Files auf einmal zu schließen, abgesehen von der Datein in der das Makro ist. Bei mir schließt es immer diese zu erst und alles andere bleibt offen!
Gruß Tina


Sub Alle_Dateien_schließen()
    Do
    ActiveWorkbook.Close True
    Loop
End Sub

Bild

Betrifft: If wkb.Name <> ThisWorkbook.Name Then
von: ransi
Geschrieben am: 22.04.2005 18:37:47
hallo tina
versuch mal so:
Option Explicit

Public

Sub allezu()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then wkb.Close
Next
End Sub

ransi
Bild

Betrifft: AW: If wkb.Name <> ThisWorkbook.Name Then
von: Tina
Geschrieben am: 22.04.2005 18:55:47
Danke, klappt schon mal besser als meins.
Und wie kann ich jetzt noch abstellen, dass immer nachgefragt wird, ob man speichern will. Will nämlich nicht speichern.
Danke Tina
Bild

Betrifft: AW: If wkb.Name <> ThisWorkbook.Name Then
von: Herbert
Geschrieben am: 22.04.2005 19:26:28

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

mfg herbert
Bild

Betrifft: AW: If wkb.Name <> ThisWorkbook.Name Then
von: Tina
Geschrieben am: 25.04.2005 17:05:32
DANKE für Eure Hilfe
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textfeld in Zahl umwandeln"