Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

automatisches loeschen

Forumthread: automatisches loeschen

automatisches loeschen
17.03.2004 08:35:47
expat
sodele, dass ist nun aber mein letzter topic hier fuer heute....
counter und autosave function per vba funktionieren sehr gut, wie schaut es aber mit folgendem problem aus?
ich habe einige ausgefuellte zellen, deren content nach dem printout nicht mehr benoetigt wird.
kann ich in mein bisheriges macro noch was einfuellen, dass der inhalt nach uebermittlung des sheets zum printer und vor der speicherung durch das macro noch geloescht wird. ansonsten muesste man das danach immer manuell erledigen, was ich gerne vermeiden moechte.
der bisherige quellcode sieht folgendermassen aus:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("sheet1")
.Range("D67") = .Range("D67") + 1
.Range("D2047") = .Range("D2047") + 1
ThisWorkbook.Save
End With
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches loeschen
17.03.2004 09:09:52
Nepumuk
Hallo ?
versuch es mal so:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1] = [a1] + 1
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
[b1] = ""
ThisWorkbook.Save
Cancel = True
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
;

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