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

Hinweisfenster b. Speichern unterdrücken in VBA

Forumthread: Hinweisfenster b. Speichern unterdrücken in VBA

Hinweisfenster b. Speichern unterdrücken in VBA
16.08.2004 11:51:18
udo
Hallo zusammen,
wüsste mir bitte Jemand eine Anweisung in VB , die mir das
Hinweisfenster unterdrückt, wenn ich per Makro speichern unter ...
anweise , und die datei dann mit dem selben Namen bereits an diesem Ort sich befindet, und einfach erneut überschrieben werden soll ...
wäre Euch sehr dankbar, lieben Gruß
udo
Es handelt sich dabei um folgendes Makro :

Sub ablegen_Messbuehne_gross()
Application.ScreenUpdating = False
Worksheets(3).Name = "Auswertung"
Sheets("Messbühne - gross").Select
Range("A1").Select
'++++ hier müsste wohl eine Anweisung rein die dann evt. ein Fenster verhindert , und einfach überschreibt ... ß
ActiveWorkbook.SaveAs Filename:="Y:\1 - Messbuehne EXCEL - Catia V5\Messbuehne 1.5.xls", _
FileFormat:=xlNormal, _
CreateBackup:=True
Application.ScreenUpdating = True
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hinweisfenster b. Speichern unterdrücken in VBA
Dr.
Application.DisplayAlerts = False und nach der Speicherroutine wieder Application.DisplayAlerts = True
Application.DisplayAlerts = False o.T.
ChrisL
Gruss
Chris
PS: und nicht vergessen wieder auf True stellen.
habs selbst hinbekommen mit ... Danke trotzdem ;-)
udo
Application.DisplayAlerts = False
Anzeige
Danke an Alle die schneller waren als ;-) udo
udo
...
Anzeige
Anzeige

Infobox / Tutorial

Hinweisfenster beim Speichern in VBA unterdrücken


Schritt-für-Schritt-Anleitung

Um das Hinweisfenster beim Speichern in VBA zu unterdrücken, kannst du die Application.DisplayAlerts-Eigenschaft verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11 in Excel.
  2. Erstelle oder öffne dein Makro: Füge den folgenden Code in dein Makro ein.
Sub ablegen_Messbuehne_gross()
    Application.ScreenUpdating = False
    Worksheets(3).Name = "Auswertung"
    Sheets("Messbühne - gross").Select
    Range("A1").Select

    ' Hinweisfenster unterdrücken
    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:="Y:\1 - Messbuehne EXCEL - Catia V5\Messbuehne 1.5.xls", _
    FileFormat:=xlNormal, _
    CreateBackup:=True

    ' Hinweisfenster wieder aktivieren
    Application.DisplayAlerts = True

    Application.ScreenUpdating = True
End Sub
  1. Führe das Makro aus: Gehe zurück zu Excel und führe dein Makro aus.

Häufige Fehler und Lösungen

  • Fehler: Das Hinweisfenster wird immer noch angezeigt.

    • Lösung: Stelle sicher, dass Application.DisplayAlerts = False vor dem Speichern aufgerufen wird und dass es nach dem Speichern wieder auf True gesetzt wird.
  • Fehler: Makro stoppt mit einer Fehlermeldung.

    • Lösung: Überprüfe den Pfad und den Dateinamen in der SaveAs-Anweisung. Stelle sicher, dass der Pfad existiert und dass du Schreibrechte hast.

Alternative Methoden

Falls du eine andere Methode ausprobieren möchtest, kannst du auch die On Error Resume Next-Anweisung verwenden, um Fehler zu ignorieren:

Sub ablegen_Messbuehne_gross()
    Application.ScreenUpdating = False
    Worksheets(3).Name = "Auswertung"
    Sheets("Messbühne - gross").Select
    Range("A1").Select

    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:="Y:\1 - Messbuehne EXCEL - Catia V5\Messbuehne 1.5.xls", _
    FileFormat:=xlNormal, _
    CreateBackup:=True
    On Error GoTo 0

    Application.ScreenUpdating = True
End Sub

Diese Methode kann jedoch nicht immer die bestmöglichen Ergebnisse liefern, da sie alle Fehler ignoriert.


Praktische Beispiele

Hier sind einige Szenarien, in denen das Unterdrücken von Hinweisfenstern nützlich ist:

  • Automatisierte Berichte: Wenn du regelmäßig Berichte generierst und speicherst, möchtest du möglicherweise das Hinweisfenster vermeiden, um den Prozess zu beschleunigen.
  • Batch-Speicheroperationen: Wenn du mehrere Dateien in einem Rutsch speicherst, kann das Unterdrücken von Hinweisfenstern die Effizienz erhöhen.

Tipps für Profis

  • Verwende With-Anweisungen: Um den Code übersichtlicher zu gestalten, kannst du With-Anweisungen verwenden, um die Lesbarkeit zu erhöhen.
  • Fehlerbehandlung: Implementiere eine umfassende Fehlerbehandlung, um sicherzustellen, dass dein Makro robust ist und auch bei unerwarteten Situationen ordnungsgemäß funktioniert.

FAQ: Häufige Fragen

1. Was passiert, wenn ich Application.DisplayAlerts nicht wieder auf True setze?
Wenn du DisplayAlerts nicht wieder auf True setzt, werden alle nachfolgenden Warnmeldungen unterdrückt, was zu unerwartetem Verhalten führen kann.

2. Kann ich DisplayAlerts auch für andere Operationen verwenden?
Ja, Application.DisplayAlerts kann auch für andere Operationen in Excel verwendet werden, bei denen Warnmeldungen angezeigt werden, z.B. beim Schließen von Arbeitsmappen ohne Speichern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige