Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.DisplayAlerts

Application.DisplayAlerts
17.04.2006 01:00:42
Jonathan
Hey,
ich möchte, dass beim Beenden nicht gefragt wird, ob gespeichert werden soll. Wenn ich dies nun mit Application.DisplayAlerts ausstelle, wird dies nur für die Mappe gespeichert, oder auch für alle nachfolgenden in Excel geöffnete Dateien?
Ich danke Euch!

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
oder besser
17.04.2006 01:17:46
Jonathan
Hey,
ich möchte die Frage noch einmal anders formulieren:
Das Beenden von Excel (oder der geöffneten Datei) soll nur über einen dafür vorgesehenen Butto erfolgen können.
Wird Excel damit beendet, soll keine speicher - Abfrage oder ähnliches auftauchen.
Wie kann ich das bewerkstelligen?
Danke!
Jonathan
AW: oder besser
17.04.2006 01:23:07
PeterW
Hallo Jonathan,
auch nicht viel besser gefragt. ;-) Geht es um Excel oder um die Mappe? Versuch es mal im Code des Buttons mit ThisWorkbook.Saved = True
Gruß
Peter
AW: oder besser
17.04.2006 01:27:18
Jonathan
Hey,
ich habe alle Symbolleisten der Datei ausgeblendet, wenn also könnte die Datei nur über das "X" von Excel geschlossen werden, worauf auch alle anderen geschlossen werden.
Und genau dies möchte ich verhindern. Solange die Datei aktivv ist, soll Excel nicht über den "normalen Weg" geschlossen werden können.
Das Beenden über den Button setzt kein Speichern voraus. Es erschint auch eine Abfrage.
Anzeige
AW: oder besser
17.04.2006 01:53:17
PeterW
Hallo Jonathan,
was soll passieren, wenn die Mappe zwar geöffnet aber gerade eine andere Mappe aktiv ist?
Gruß
Peter
Aus grundsätzlichen Erwägungen, dem User nicht das ihm bekannte Excel anzubieten bin ich aus diesem Thread raus; deswegen noch offen
AW: oder besser
17.04.2006 02:13:45
Jonathan
Hey,
Du hast generell Recht, hierbei handelt es sich baer mittlerweile um ein Programm, welches nur noch uaf der Excel Oberfläche basiert. Andere als die vorgegebenen Funktionen sollen nicht genutzt werden können!
Die Überlegung ist richtig. Wie gehe ich daran?
Hintergrund:
Da die Symbolleisten ausgeblendet sind, werden diese natürlich vor dem schließen wieder eingeblendet. Erscheint dann die Frage, ob gespeichert werden soll, der User auf abbrechen klickt, bleiben die Symbolleisten (die originalen) erhalten. das darf nicht sein.
Jonathan
Anzeige
An Tasso
17.04.2006 10:05:57
Nepumuk
Hallo Tasso,
ist es deiner Meinung nach notwendig, wegen dieser paar Zeilen eine Mappe mit drei! leeren Tabellen hoch zu laden und damit den Server zuzumüllen? Auch die Bitte nach einer Beispielmappe bei eindeutiger Frage halte ich für unnötig. In anderen Foren ist es nicht möglich etwas hoch zu laden, aber die gestellten Fragen können auch dort immer beantwortet werden. Versteh mich bitte nicht falsch, du bist wie alle anderen auch hier gerne gesehen, aber bitte ein bisschen vernünftiger mit den nicht unbegrenzt vorhandenen Ressourcen umgehen.
Hast du kein Programm zum Einrücken von Codezeilen um Makros zu strukturieren? So eines wird dir hier zum Download angeboten: https://www.herber.de/download.html du findest es unter vbeplus.zip und macht aus deinem, an den linken Rand geklebten Makros mit zwei klicks so etwas:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ThisWorkbook.Saved Then
        Select Case MsgBox("Änderungen speichern?", vbYesNoCancel + vbExclamation, "Abfrage")
            Case Is = vbYes
                ThisWorkbook.Save
            Case vbCancel
                Cancel = True
                Exit Sub
        End Select
    End If
    Call restoreIt
    ThisWorkbook.Saved = True
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Private Sub restoreIt()
    With Application
        .CommandBars(1).Enabled = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .CommandBars("Standard").Enabled = True
        .CommandBars("Formatting").Enabled = True 'usw
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: An Tasso
17.04.2006 12:08:13
Tassos
Hallo Nepumuk,
Danke für deine Hinweise, Danke dass Du die logischen Fehler in meinem Code korrigiert hast!
Normalerweise Meine Codes - wie man nachvollziehen kann - die ich in diesem Forum gepostet habe sind "kurz und bündig",
nur der bestimmte nicht da es schon zu spät für mich war (03:44:54)
Ok, da solche "Dialoge" in so einen Forum nichts verloren haben, möchte ich jetzt aufhören und Dir einen Guten Tag wünschen.
mfg.
Tassos
hier meine Idee von gestern Nacht
17.04.2006 17:11:55
gestern
Hey Ihr beiden!
Danke für die Antworten!
Ich habe es jetzt wie folgt gelöst gehabt, könnt Ihr mir sagen, ob dies so richtig ist oder nur zufällig funktioniert?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = True Then
Menü_Löschen    ' Menü löschen
SystemLeisten ' normale Symbolleisten wieder herstellen
Call prcReset ' Code zum Zurücksetzen des Icon ...
End If
End Sub

Jetzt werden hierbei ja noch die Exceleigenen Meldungen angezeigt, aber nur die Symbolleisten entfernt, wenn die Datei wirklich geschlossen wird.
- Jonathan
Anzeige
AW: An Tasso
17.04.2006 17:37:46
Jonathan
Ich habe jetzt nochmal Eure Variante ausprobiert, aber die Änderungen werden hierbei nicht gepsiechert!
Woran liegt das?
AW: Code posten bitte
17.04.2006 18:51:02
Tassos
Hallo Jonathan,
Es wäre gut wenn Du Dein Code im Forum postest dass man richtig durchblicken kann.
Gruß!
Tassos
AW: Code posten bitte
17.04.2006 18:57:55
Jonathan
Sorry:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then
iClick = MsgBox("Soll das Programm Ihre vorgenommenen Änderungen speichern?", 32 + 3, "speichern")
If iClick = vbYes Then
MsgBox "yes"
ThisWorkbook.Save
ElseIf iClick = vbCancel Then
Cancel = True
Exit Sub
End If
End If
' nur zu Testzwecken
Cancel = True
Exit Sub
Call Menü_Löschen    ' Menü löschen
Call SystemLeisten
Call prcReset
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Anzeige
AW: Code posten bitte
17.04.2006 20:09:58
Tassos
Hallo Jonathan!
Dein Code funktioniert, nur ich kann nicht verstehen dass Du mit den anderen Codes nicht zum Speichern gekommen bist; Prinzipiel die tun das gleiche!
Schöne Grüsse
Tassos
AW: Code posten bitte
17.04.2006 23:44:18
Jonathan
Hey,
auch mit meinem speichert er nicht!
Ich weiß nicht, warum!
Jonathan
AW: Code posten bitte
18.04.2006 07:38:08
Tassos
Hallo Jonathan,
wenn die Daten es erlauben konntest Du deine Mappe zipen und hochladen?
Gruß
Tassos
AW: Code posten bitte
19.04.2006 19:14:33
Jonathan
Hey Tassos.
vielen Dank für Dein Angebot.
Generell fände ich es sehr super, wenn jemand mal drüber gucken würde, zumal ich denke, dass einige Sachen falsch programmiert wurden.
Allerdings sind hier sehr sensible Daten hinterlegt.
Danke für Deine Hilfe!
Anzeige

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
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 mac...
05.04.2016 16:22:34
Thread-ID: 1486096
6 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

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
5
8
7
4
2
3
3
3
1
1
2
3
2
4
2
14
4
14