Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei komplett schließen

Datei komplett schließen
14.05.2014 07:00:19
chris
Hallo Excel vba Experten, ich komme nicht weiter und muss um Hilfe bitten.
Ich habe eine Excel Datei mit vielen makros, diese muss immer geöffnet bleiben.
Zusätzlich möchte ich eine Ecke Excel Datei starten die unten auf der Windows task leiste liegt. diese Datei führt nur ein paar sendkeys befehle aus. dann soll nur diese Datei geschlossen werden. wenn ich e es mit application.quit mache schließe ich auch die andere Datei. wenn ich es mit This.workbook.close mache bleibt jedes mal ein leeres Excel offen.wenn ich es zehn mal mache habe ich zehn leere graue Excel Fenster offen. Was kann ich machen?
Vielen dank euch

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei komplett schließen
14.05.2014 07:09:50
Hajo_Zi
Du möchtest also alle Datei bis auf diese eine schließen?
Option Explicit
Sub Zu()
Dim WbDatei As Workbook
For Each WbDatei In Workbooks
If UCase(WbDatei.Name)  "PERSONal.XLSB" And _
UCase(WbDatei.Name)  "TEST.XLSB" Then
WbDatei.Close False     ' nicht speichern
End If
Next WbDatei
End Sub

Anzeige
AW: Datei komplett schließen
14.05.2014 07:12:54
chris
Guten morgen hajo, ich möchte nur diese eine Datei schließen. Aber eben komplett...?
Weist di was ich meine?

AW: Datei komplett schließen
14.05.2014 07:14:39
Hajo_Zi
dann habe ich das
This.workbook.close mache bleibt jedes mal ein leeres Excel offen

wohl falsch interpretiert. Die Datei wurde ja schon geschlossen.
Gruß Hajo

Anzeige
AW: Datei komplett schließen
14.05.2014 07:19:32
Hajo_Zi
damit alle anderen Datei auf bleiben, folgender Code.
Option Explicit
Sub Zu()
Dim WbDatei As Workbook
For Each WbDatei In Workbooks
If UCase(WbDatei.Name)  "PERSONal.XLSB" And _
UCase(WbDatei.Name)  "TEST.XLSB" And _
InStr(WbDatei.Name, ".") = 0 Then
WbDatei.Close False     ' nicht speichern
End If
Next WbDatei
End Sub

es werden nur nicht gespeicherte Mappe geschlossen.
Gruß Hajo

Anzeige
AW: Datei komplett schließen
14.05.2014 08:41:56
chris
Hallo danke Hajo, aber das geht nicht. Weil das Makro mit der Schleife von dir ist ja in der Datei die geschlossen werden soll.
Ich erkläre noch einmal kurz.
Ich habe Datei a geöffnet. diese bleibt immer offen.
Dann Öffne ich Datei b. diese hat in Workbook open ein Makro das wird ausgeführt. dann soll diese Datei komplett geschlossen werden. also Datei b
Geht das?
Das Makro um die Datei b zu schließen ist sich in Datei b
Vielen dank noch einmal

Anzeige
AW: Datei komplett schließen
14.05.2014 09:16:57
Hajo_Zi
bevor Du bei Deiner Datei Close mache führe mein Makro aus, false kannst Du ja noch löschen, damit Du mehr Einfluss hast.
Gruß Hajo

AW: Datei komplett schließen
15.05.2014 14:47:22
Ewald
Hallo Chris,
dann hier nochmal
wenn du in den Optionen "Alle Fenster in Taskleiste anzeigen" aktivierst,brauchst du die Abfrage nicht. Alle Dateien werden dann in der gleichen Instanz geöffnet und können dann mit
Thisworkbook.close
geschlossen werden.
Gruß Ewald
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Excel-Datei komplett schließen: Tipps und Tricks


Schritt-für-Schritt-Anleitung

Um eine Excel-Datei komplett zu schließen, während du eine andere Datei geöffnet hältst, kannst du folgendes VBA-Skript verwenden. Dieses Skript schließt die aktive Arbeitsmappe und lässt die andere geöffnet:

Sub DateiSchliessen()
    ThisWorkbook.Close SaveChanges:=False ' Schließt die aktive Datei ohne zu speichern
End Sub

Wenn du mehrere Dateien geöffnet hast und nur eine bestimmte schließen möchtest, kannst du den folgenden Code verwenden:

Sub SchließeBestimmteDatei()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name = "DeineDatei.xlsx" Then ' Ersetze "DeineDatei.xlsx" mit dem Namen deiner Excel-Datei
            wb.Close SaveChanges:=False
        End If
    Next wb
End Sub

Häufige Fehler und Lösungen

Fehler: Excel-Datei lässt sich nicht schließen.
Lösung: Stelle sicher, dass keine Dialogfenster offen sind, die die Schließung der Datei verhindern. Manchmal können auch Makros oder Formeln in der Datei stören.

Fehler: Excel schließt nicht.
Lösung: Wenn Excel nicht reagiert, könnte ein Konflikt mit einer anderen Datei oder einem aktiven Makro vorliegen. Überprüfe, ob andere Instanzen von Excel aktiv sind und schließe diese.


Alternative Methoden

Eine praktische Methode ist die Verwendung der Excel-Optionen, um alle Fenster in der Taskleiste anzuzeigen. Damit kannst du die Excel-Fenster besser verwalten und gezielt schließen:

  1. Gehe zu Datei > Optionen.
  2. Wähle die Kategorie Erweitert.
  3. Aktiviere die Option „Alle Fenster in der Taskleiste anzeigen“.

Praktische Beispiele

Wenn du ein neues Excel-Fenster öffnen und danach das aktuell aktive Fenster schließen möchtest, kannst du dies mit folgendem Code tun:

Sub NeuesFensterUndSchließen()
    Workbooks.Add ' Neues Fenster öffnen
    ThisWorkbook.Close SaveChanges:=False ' Aktuelles Fenster schließen
End Sub

Dieses Skript öffnet ein neues Excel-Fenster und schließt das aktuelle. Es ist eine ausgezeichnete Möglichkeit, um die Übersichtlichkeit zu bewahren, insbesondere wenn du mit mehreren Arbeitsmappen arbeitest.


Tipps für Profis

  • Verwende Application.Quit, um Excel komplett zu beenden, aber sei vorsichtig, da dies alle geöffneten Dateien schließt.
  • Wenn du mit VBA arbeitest, stelle sicher, dass du regelmäßig deine Makros speicherst, um Datenverluste zu vermeiden.
  • Nutze On Error Resume Next in deinem VBA-Code, um unerwartete Fehler zu ignorieren, aber sei dir der Risiken bewusst.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Datei mit VBA schließen, ohne die anderen zu beeinflussen?
Verwende ThisWorkbook.Close und stelle sicher, dass du nur die aktive Datei schließt, während andere weiterhin geöffnet bleiben.

2. Was tun, wenn Excel nicht reagiert und ich die Datei nicht schließen kann?
Versuche, Excel über den Task-Manager zu beenden, und stelle sicher, dass keine aktiven Dialogfenster oder Makros die Schließung behindern.

3. Gibt es eine Möglichkeit, alle geöffneten Dateien zu schließen?
Ja, du kannst eine Schleife verwenden, um alle Arbeitsmappen zu durchlaufen und sie zu schließen. Achte darauf, ob du sie speichern möchtest oder nicht.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige