Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingetragene Daten nach Druck automatisch löschen

Forumthread: Eingetragene Daten nach Druck automatisch löschen

Eingetragene Daten nach Druck automatisch löschen
05.07.2004 08:20:50
Peter
Hallo ihr!
Vielleicht könnt ihr mir nochmal helfen. Und zwar hab ich ja ein Formular in Excel gemacht, und in diesem Formular trägt man in 3 Feldern Daten ein. Wenn ich das Formular jetzt ausdrucke, möchte ich gerne, dass diese Daten danach wieder gelöscht sind, und die Felder leer. Ist das so ohne weiteres möglich?
Danke im Voraus für Eure Hilfe! :-)
Gruß,
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Eingetragene Daten nach Druck automatisch löschen
Nike
Hi,
es gibt leider nur ein Ereignis Before_Print also vor dem Drucken,
somit muesstest du die nen Button bauen, den du nach dem Drucken
eimal auswaehlst, der dann deine Funktion ausfuehrt,
anders kann ich's mir nicht vorstellen....
Bye
Nike
AW: Eingetragene Daten nach Druck automatisch löschen
Chris
Hi,
so müßte es gehen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PrintOut
'dein code zum löschen
Cancel = True
End Sub

Gruß Chris
Anzeige
Anzeige

Infobox / Tutorial

Eingetragene Daten nach Druck automatisch löschen

Schritt-für-Schritt-Anleitung

Um die eingetragenen Daten in einem Excel-Formular nach dem Drucken automatisch zu löschen, kannst du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne dein Excel-Dokument.

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

  3. Füge den folgenden Code in das ThisWorkbook-Modul ein:

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
   ' Druckvorgang starten
   ActiveSheet.PrintOut

   ' Eingetragene Daten löschen
   Sheets("DeinBlattName").Range("A1:C1").ClearContents ' Ändere den Bereich nach Bedarf

   ' Druckvorgang nicht abbrechen
   Cancel = True
End Sub

  4. Schließe den VBA-Editor und speichere deine Datei.

  5. Teste den Druckvorgang. Die Daten in den angegebenen Zellen sollten nach dem Druck gelöscht werden.

Häufige Fehler und Lösungen

  • Fehler: Kein Drucker installiert

    • Lösung: Stelle sicher, dass ein Drucker korrekt installiert und konfiguriert ist.

  • Fehler: VBA-Code wird nicht ausgeführt

    • Lösung: Überprüfe, ob Makros in deinen Excel-Einstellungen aktiviert sind.

  • Fehler: Die Daten werden nicht gelöscht

    • Lösung: Stelle sicher, dass der Zellbereich im Code korrekt angegeben ist. Passe Range("A1:C1") an deine tatsächlichen Zellen an.

Alternative Methoden

Eine alternative Methode, um Daten zu löschen, besteht darin, einen Button zu erstellen:

  1. Füge einen Button in dein Excel-Blatt ein (Entwicklertools > Einfügen > Button).

  2. Verlinke den Button mit einem neuen Makro:

    Sub DatenLoeschen()
   Sheets("DeinBlattName").Range("A1:C1").ClearContents
End Sub

  3. Klicke nach dem Drucken auf den Button, um die Daten zu löschen.

Praktische Beispiele

  • Beispiel 1: Wenn du ein Formular mit drei Eingabefeldern hast und diese in den Zellen A1, B1 und C1 stehen, kannst du den oben genannten VBA-Code verwenden, um diese nach dem Druck zu löschen.

  • Beispiel 2: Wenn du mehrere Formulare hast, kannst du den Code anpassen, um mehrere Zellbereiche gleichzeitig zu leeren, z.B.:

    Sheets("DeinBlattName").Range("A1:C1, D1:F1").ClearContents

Tipps für Profis

  • VBA Debugging: Nutze den Debugger im VBA-Editor, um Fehler im Code zu identifizieren und zu beheben.
  • Makros speichern: Speichere dein Excel-Dokument als .xlsm, um die Makros zu behalten.
  • Sicherheitswarnungen: Achte darauf, dass deine Excel-Sicherheitseinstellungen Makros zulassen, um den automatischen Löschvorgang ohne Probleme durchführen zu können.

FAQ: Häufige Fragen

1. Kann ich den Druckvorgang abbrechen, wenn ich die Daten nicht löschen möchte? Ja, du kannst den Cancel-Parameter auf True setzen, um den Druckvorgang abzubrechen.

2. Was passiert, wenn ich das Dokument schließe? Wenn du das Dokument schließt, bleiben die VBA-Codes gespeichert, solange du es als .xlsm-Datei speicherst.

3. Funktioniert das auch in Excel Online? Leider unterstützt Excel Online keine VBA-Makros. Diese Lösung funktioniert nur in der Desktop-Version von Excel.

Beliebteste Forumthreads (12 Monate)

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