Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

datei schließen

Forumthread: datei schließen

datei schließen
25.01.2004 12:51:57
Jonathan
Hallo!
ich habe ein Makro zum Schließen einer Datei:

Sub schliessen()
If Workbooks.Count > 1 Then
MsgBox "Es müssen erst alle anderen Excel Mappen geschlossen werden, bevor Sie diese schließen können.", vbCritical
Exit Sub
Else
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

warum klappt dieser code nicht in
Private 

Sub Workbook_BeforeClose(Cancel As Boolean)
Liebe Grüße
Jonathan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: datei schließen
25.01.2004 13:00:55
Hajo_Zi
Hallo Jonathan
bei mir geht der Code Fehlerfrei, Es geht noch ein wenig kürzer

Sub schliessen()
If Workbooks.Count > 1 Then
MsgBox "Es müssen erst alle anderen Excel Mappen geschlossen werden, bevor Sie diese schließen können.", vbCritical
Exit Sub
Else
ThisWorkbook.Close True
End If
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: datei schließen
25.01.2004 13:08:50
Jonathan
er funkt. auch bei mir, aber halt nur in der Sub. Wenn ich diesen Code auch in die Prozedur
Sub Workbook_BeforeClose(Cancel As Boolean)
bringe, schließt er die Datei auch, wenn andere noch offen sind.....
Liebe Grüße
Jonathan
AW: datei schließen
25.01.2004 13:13:16
Hajo_Zi
Hallo Jonathan
ich kann nur das machen was Du auch im Beitrag schreibst und davon habe ich nichts gelesen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count > 1 Then
MsgBox "Es müssen erst alle anderen Excel Mappen geschlossen werden, bevor Sie diese schließen können.", vbCritical
Cancel = True
Else
ThisWorkbook.Close True
End If
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
danke
25.01.2004 13:16:55
Jonathan
Hatte es schon ausprobiert mit cancel, hatte aber nicht an das = true gedacht.....
(s. letzte Frage meines ersten Beitrages)

Vielen Dank Hajo
Liebe Grüße
Jonathan
AW: datei schließen
25.01.2004 13:15:47
Klaus Schubert
Hallo Jonathan,
hier noch eine Variante:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count > 1 Then
MsgBox "Es müssen erst alle anderen Excel Mappen geschlossen werden, bevor Sie diese schließen können.", vbCritical
Cancel = True
Else
ThisWorkbook.Close SaveChanges:=False
End If
End Sub


Gruß Klaus
Anzeige
AW: datei schließen
25.01.2004 13:19:03
Hajo_Zi
Hallo Klaus
bei Deiner Variante wird die Datei nicht gespeichert, was im Ursprungscode vorgesehen war.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
Sorry, hast recht ! (o.T.)
25.01.2004 14:02:31
Klaus Schubert
O.T.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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