Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

auto_close abbrechen

auto_close abbrechen
08.08.2007 16:50:00
Klaus
Hallo Excelaner,
ich brauche 'mal wieder Hilfe.
Ich möchte über ein auto_close erreichen, dass beim Schließen einer Datei eine Prüfung (z.B. a1=1) druchgeführt wird.
Ist die Zelle a1 1 dann sollte eine Meldung erscheinen und das auto_close abgebrochen werden.
Geht das überhaupt?
Wenn ja, wie?
Für jede Antwort bin ich dankbar.

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

Betreff
Datum
Anwender
Anzeige
AW: auto_close abbrechen
08.08.2007 16:55:49
Dirk
Hallo
If range("a1") then exit sub
oder in "dieser Arbeitsmappe"
If range("a1") then cancel = true
Gruß

AW: auto_close abbrechen
08.08.2007 17:05:00
Klaus
danke für die schnelle Hilfe.

AW: auto_close abbrechen
08.08.2007 17:16:00
Klaus
wahrscheinlich mache ich einen dummen Fehler:

Sub auto_close()
If Range("a1") = 1 Then Cancel = True
End Sub


Bei mir wird die Datei trotzdem geschlossen.

AW: auto_close abbrechen
08.08.2007 17:18:00
Renee
Hi Klaus,
Das funktioniert so nicht in einem auto_close!
Du musst das Workbook_BeforeClose Ereignis, wie ich es beschrieben habe, nehmen.
Greetz Renee

Anzeige
AW: auto_close abbrechen
08.08.2007 16:56:00
Renee
Mazwara Klaus,
z.B. so: 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets(1).Cells(1, 1)  1 Then
Cancel = True
Exit Sub
End If
End Sub


Greetz Renee

Gehört in DieseArbeitsmappe (owT)
08.08.2007 16:57:08
Renee

AW: auto_close abbrechen
08.08.2007 17:30:52
Klaus
jo, jetzt hat's geklappt - danke nochmals.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige