automatisches loeschen
17.03.2004 08:35:47
expat
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