Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.DisplayAlerts

Application.DisplayAlerts
05.04.2016 16:22:34
Hugo
Hallo
Folgender Code funktioniert im Excel 2010 problemlos:
Application.DisplayAlerts = False
Application.Quit
Aber im 2013 wird trotz DisplayAlerts=False
nachgefragt ob speichern: ja / nein
Habe nichts gefunden, dass der Befehl im 2013 anders lauten soll.
Was mache ich falsch?
Besten Dank und Gruss
Hugo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelter Vergleich / Index
05.04.2016 16:29:19
Michael
https://msdn.microsoft.com/en-us/library/office/ff839269.aspx
Hier steht: If you set the Saved property for a workbook to True without saving the workbook to the disk, Microsoft Excel will quit without asking you to save the workbook.
Vielleicht mal das ausprobieren?

AW: Doppelter Vergleich / Index
05.04.2016 17:01:15
Hugo
Hallo Michael
Danke für die Antwort aber mir hilft das leider nicht weiter.
Hier mal der ganze Code den ich verwende:
Private Sub SpeichernUndEnde_Click()
If ActiveWorkbook.ActiveSheet.Name = "Startseite" Then
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.Save
Dim Mldg, Stil, Antwort, Titel
Mldg = "Soll eine Sicherungskopie erstellt werden?"
Stil = vbYesNo + vbInformation + vbDefaultButton2
Titel = "Sicherungskopie "
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
PfadUnterverzeichnis = "Sicherheitskopien"
On Error Resume Next
MkDir ActiveWorkbook.Path & "\" & PfadUnterverzeichnis
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & _
"\Sicherheitskopien\" & ThisWorkbook.Name & " " & _
" Save vom " & Format(Now, "YYYY-MM-DD_HH-MM") & ".xlsm"
End If
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

Besten Dank
Gruss Hugo

Anzeige
Doppelter Vergleich / Index
05.04.2016 17:32:40
Michael
Sind denn nachdem du die Sicherheitskopie gespeichert hast zwei Worksheets offen?
Ggf. könntest du auch die Workbooks.Close() Eigenschaft verwenden, also 

ActiveWorkbook.Close SaveChanges := False
, damit kommt man auch aus einem Workbook raus...
Sonst fällt mir leider auch nichts ein.

AW: Doppelter Vergleich / Index
05.04.2016 18:14:22
Luschi
Hallo Hugo,
da hat M$ im Verhalten der Anweisung 'Application.DisplayAlerts = False' bei Excel 2013/2016 interne Änderungen vorgenommen.
- schließt man nur die Arbeitsmappe, dann kommt keine Frage
- schließt man Excel bei offener Arbeitsmappe, kommt die Nachfrage.
Deshalb mache es so, wie von Michael vorgeschlagen: 

ActiveWorkbook.Saved = True
Application.Quit
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Doppelter Vergleich / Index
06.04.2016 10:27:15
Hugo
Hallo Michael und Luschi
Besten Dank für eure Hilfe
Schliesse in meinem Code gem. Michaels Tipp ActiveWorkbook.Close SaveChanges:=False
und da dies ja nur das Workbook schliesst setze ich den Befehl Application.Quit
in -DieseArbeitsmappe - Workbook_BeforeClose- und so passt es
Nochmals Besten Dank und Gruss
Hugo

78 Forumthreads zu ähnlichen Themen

ScreenUpdating = false funktioniert nicht
Memphis

Hallo,
ich habe das Problem, dass ich am Anfang meines Codes Screenupdating = false setze und am Ende wieder auf true. Das hat auch die ganze Zeit funktioniert, nur ab einer Version des Sheets nicht mehr - obwohl ich meiner Meinung nach keine dies betreffende Änderung vorgenommen habe.
...
03.03.2011 12:09:09
Thread-ID: 1204020
3 Beiträge
Anzeige
Application.displayalerts bringt ab und an Fehler
Uppe

Hallo Experten,
ich habe ein Teilprogramm, welches meine Exceldatei unter neuem Namen speichert und alle Tabellenblätter bis auf eines löschen soll.
Das Speichern an sich funktioniert. Leider kommt oft (aber nicht immer) die Fehlermeldung "Die Methode Displayalerts ... ist fehlgeschlage...
26.06.2012 11:44:28
Thread-ID: 1268814
9 Beiträge
VBA Pivot filter visible = true ?
JensH.

Guten Morgen,
auch heute benötige ich mal wieder ein wenig Nachhilfe, nachdem ich mit meinen Kenntnissen nicht weiter komme.
Vorhanden ist eine Pivottabelle, in der per VBA ein Filter gesetzt werden soll. Leider bietet Exel da scheinbar nur die Möglichkeit gezielt auszublenden. Da die W...
23.08.2012 14:41:04
Thread-ID: 1276123
3 Beiträge
Anzeige
Frage zu "DisplayAlerts.False"
Stefan

Hallo Miteinander,mein Problem ist, dass ich trotz des Befehls "DisplayAlerts.False" von Word immernoch eine Meldung bekomme "Seitenränder zu klein, trotzdem drucken?". Eigentlich
müsste mit dem Befehl diese Meldung umgangen werden und automatisch mit der Defaulttaste bestätigt werden. Kann...
08.07.2002 12:12:23
Thread-ID: 134674
6 Beiträge
ScreenUpdating = False - funktioniert nicht
Andi

Hallo Zusammen,
ich kopiere Werte aus eine Hilfstabelle und füge diese in die Haupttabelle ein.
Leider Flackert der Bildschirm extrem dabei (trotz ScreenUpdating = False) und ich weiß nicht wie ich das abstellen kann.
Sub Copy() Application.ScreenUpdating = False Range("F66:CW67").C...
09.01.2014 10:21:46
Thread-ID: 1344594
7 Beiträge
Application.DisplayAlerts = False ohne Funktion
komatsur

Guten Tag,
Mein Excel-File hat mehrere Sheets in denen Daten automatisiert von div. Webseiten (Webinterface von selbstentwickelten Steuerungen) geladen werden sollten, damit ich die unterschiedlichen Systeme vergleichen kann. Ich greife somit zb. auf http://192.168.1.79/index.htm
und ht...
19.05.2017 09:10:39
Thread-ID: 1559297
9 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
VBA: UpdateLinks:=3 - ActiveWB.Close True
SPL

Hallo zusammen,
seit Zeiten verwende ich nachfolgenden simplen Code um mehrere Worksheets nacheinander zu aktualisieren. Dim ABC as String ABC = "X:\P\M\MM\Acc.xlsx" Workbooks.Open Filename:=ABC, UpdateLinks:=3 ActiveWorkbook.Close True Jetzt haben wir eine relativ große Umstellung hinsic...
18.06.2019 18:06:07
Thread-ID: 1698325
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
8
2
3
5
6
8
7
4
2
3
3
3
1
1
2
3
16
2
4
2
14
4
14