Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Unterdrücken der Abfrage beim Speichern

Forumthread: Unterdrücken der Abfrage beim Speichern

Unterdrücken der Abfrage beim Speichern
23.02.2006 13:54:34
ge-ka
hallo liebe leutz!
immer wieder ein renner, aber trotz suchfunktion krieg ich es nicht richtig gebacken. was mache ich falsch?
hier mein vba:

Sub Auswahl_Schaltfläche16_BeiKlick()
MsgBox "Das Speichern wird etwas dauern!"
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Dialogs(xlDialogSaveAs).Show
If ActiveWorkbook.Saved = True Then
MsgBox "Speicherung erfolgreich"
Else
MsgBox "!!Es konnte nicht gespeichert werden!!"
End If
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

und trotz "Application.DisplayAlerts = False" wird mir die rückfrage "Speichern unter " reingedrückt. wo habe ich den klemmer?
danke!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterdrücken der Abfrage beim Speichern
23.02.2006 14:03:08
UweD
Hallo
die Zeile
Application.Dialogs(xlDialogSaveAs).Show
muß raus...
Gruß UweD
(Rückmeldung wäre schön)
AW: Unterdrücken der Abfrage beim Speichern
23.02.2006 15:05:51
ge-ka
funzt - danke! (dunkel war alle theorie...bis die praktiker das licht anmachten)
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Abfrage beim Speichern in Excel unterdrücken


Schritt-für-Schritt-Anleitung

Um die Abfrage beim Speichern in Excel zu unterdrücken, kannst Du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die Rückfrage "Speichern unter" nicht angezeigt wird:

Sub Auswahl_Schaltfläche16_BeiKlick()
    MsgBox "Das Speichern wird etwas dauern!"
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ' Diese Zeile entfernt die Rückfrage
    ' Application.Dialogs(xlDialogSaveAs).Show
    If ActiveWorkbook.Saved = True Then
        MsgBox "Speicherung erfolgreich"
    Else
        MsgBox "!!Es konnte nicht gespeichert werden!!"
    End If
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

Stelle sicher, dass Du die Zeile Application.Dialogs(xlDialogSaveAs).Show entfernst, da sie die Rückfrage wieder einblendet.


Häufige Fehler und Lösungen

Ein häufiger Fehler ist, dass die Zeile für den Dialog xlDialogSaveAs nicht entfernt wird. Dies führt dazu, dass die Rückfrage weiterhin angezeigt wird. Vergewissere Dich, dass diese Zeile aus Deinem Code entfernt wurde.

Ein weiterer Punkt ist, dass Du sicherstellen solltest, dass der Code in einem Modul und nicht in einem Arbeitsblatt platziert ist. Das kann ebenfalls zu unerwartetem Verhalten führen.


Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du die folgenden Alternativen in Betracht ziehen:

  1. Makro aufzeichnen: Du kannst ein Makro aufzeichnen, das die gewünschten Schritte ausführt. Excel wird den Code generieren und Du kannst diesen dann anpassen.

  2. Verwendung von Excel-Add-Ins: Es gibt verschiedene Add-Ins, die zusätzliche Funktionen bieten, um Dialoge und Abfragen zu steuern. Schau Dir die verfügbaren Add-Ins im Microsoft Store an.


Praktische Beispiele

Hier ist ein weiteres praktisches Beispiel, das zeigt, wie das Speichern ohne Rückfragen funktionieren kann:

Sub SpeichernOhneAbfrage()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    MsgBox "Das Workbook wurde erfolgreich gespeichert."
End Sub

Dieses Makro speichert die Arbeitsmappe ohne Rückfragen und zeigt anschließend eine Bestätigungsmeldung an.


Tipps für Profis

  • Sichere Deine Daten: Bevor Du mit VBA arbeitest, erstelle immer eine Sicherungskopie Deiner Datei, um Datenverlust zu vermeiden.
  • Testumgebung: Teste deinen VBA-Code in einer Testumgebung, bevor Du ihn in produktiven Dateien anwendest.
  • Verwendung von Fehlerbehandlungsroutinen: Füge Fehlerbehandlungsroutinen hinzu, um unerwartete Fehler abzufangen und zu verarbeiten. Dies kann helfen, das Verhalten Deines Codes zu verbessern.

FAQ: Häufige Fragen

1. Warum wird die Rückfrage beim Speichern trotz des Codes angezeigt? Die Rückfrage wird angezeigt, wenn die Zeile Application.Dialogs(xlDialogSaveAs).Show im Code enthalten ist. Diese Zeile muss entfernt werden, um die Rückfrage zu unterdrücken.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der bereitgestellte VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange Du Zugriff auf die Entwicklertools hast.

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