Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Messagebox beim Speichern einblenden

Forumthread: Messagebox beim Speichern einblenden

Messagebox beim Speichern einblenden
27.06.2006 12:12:22
Mike
Hallo Leute
Folgendes Problem: der User speichert nach dem Bearbeiten die Excel-Datei. Dabei soll eine Messagebox oder Infobox erscheinen, in der eine Erinnerung eingeblendet wird (z.B. "Bitte Auftragsabteilung anrufen").
Ist das machbar? Bin leider ein VBA-Anfänger.
Danke für Eure Hilfe!
Mike
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Messagebox beim Speichern einblenden
27.06.2006 12:21:20
{mskro}
Hallo Mike,
dann schreibe ins Modul1

Sub Auto_Close()
Application.ScreenUpdating = False
On Error Resume Next
MsgBox ("Bitte Auftragsabteilung anrufen!")
End Sub

Vielleicht ist es das, was du brauchst.
Gruss Manfred
Rückmeldung wäre nett!
Anzeige
AW: Messagebox beim Speichern einblenden
27.06.2006 12:21:32
Harald
Hi Mike,
diesen Code ins Modul DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Bitte Auftragsabteilung anrufen", vbInformation
End Sub

Gruss Harald
AW: Messagebox beim Speichern einblenden
27.06.2006 12:31:07
Mike
Danke, hat funktioniert !!
;
Anzeige
Anzeige

Infobox / Tutorial

Messagebox beim Speichern in Excel einblenden


Schritt-für-Schritt-Anleitung

Um eine Messagebox beim Speichern einer Excel-Datei anzuzeigen, kannst du den folgenden VBA-Code verwenden. Diese Anleitung ist für Excel-Nutzer, die mit VBA (Visual Basic for Applications) arbeiten möchten.

  1. Öffne deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Suche im Projekt-Explorer nach "DieseArbeitsmappe" und doppelklicke darauf.

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       MsgBox "Bitte Auftragsabteilung anrufen", vbInformation
    End Sub
  5. Schließe den VBA-Editor und speichere deine Datei.

  6. Teste das Speichern, um zu sehen, ob das Infofenster erscheint.


Häufige Fehler und Lösungen

  • Fehler: Keine Meldung erscheint

    • Lösung: Stelle sicher, dass der Code im richtigen Modul ("DieseArbeitsmappe") eingegeben wurde und dass Makros in den Excel-Optionen aktiviert sind.
  • Fehler: Die Meldung erscheint mehrfach

    • Lösung: Überprüfe, ob der Code möglicherweise mehrfach vorhanden ist. Es sollte nur eine Instanz des Codes im Modul "DieseArbeitsmappe" geben.

Alternative Methoden

Wenn du eine andere Methode zur Anzeige von Hinweisen in Excel verwenden möchtest, kannst du die folgenden Alternativen in Betracht ziehen:

  • Verwendung von Worksheet_Change-Ereignis: Hierbei wird eine Nachricht angezeigt, wenn eine bestimmte Zelle geändert wird.

    Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
          MsgBox "Bitte Auftragsabteilung anrufen", vbInformation
      End If
    End Sub
  • Einsatz von Formularsteuerelementen: Du kannst auch Schaltflächen oder andere Steuerelemente verwenden, um ein Infofenster bei bestimmten Aktionen anzuzeigen.


Praktische Beispiele

Ein Beispiel für die Verwendung des Workbook_BeforeSave-Events könnte so aussehen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "Bitte nicht vergessen, die Auftragsabteilung zu kontaktieren!", vbExclamation
End Sub

Hier wird eine Warnmeldung angezeigt, wenn der Benutzer die Datei speichert. Du kannst die Nachricht anpassen, um spezifische Anweisungen zu geben.


Tipps für Profis

  • Anpassung der Messagebox: Du kannst verschiedene Typen von Messageboxen verwenden, z.B. mit Schaltflächen für Ja/Nein oder mit unterschiedlichen Icons, um die Wichtigkeit der Nachricht zu unterstreichen.

  • Testen vor dem Einsatz: Teste deinen Code immer in einer Kopie deiner Arbeitsmappe, um unerwünschte Änderungen zu vermeiden.

  • Dokumentation des Codes: Füge Kommentare zu deinem VBA-Code hinzu, um die Funktionalität für andere Benutzer oder für dich selbst in der Zukunft klar zu machen.


FAQ: Häufige Fragen

1. Frage: Wie kann ich die Messagebox anpassen? Antwort: Du kannst den Text in der MsgBox- Funktion ändern und verschiedene Parameter verwenden, um das Aussehen und Verhalten der Nachricht zu steuern.

2. Frage: Funktioniert dieser Code in allen Excel-Versionen? Antwort: Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Achte darauf, dass du die Datei im .xlsm-Format speicherst, um Makros zu aktivieren.

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