title image


Smiley Re: Diagramme beim schließen automatisch löschen
Hallo KarlderKleine,na einfach so:' **********************************************************************' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)' **********************************************************************Option ExplicitPrivate Sub Workbook_BeforeClose(Cancel As Boolean)����Dim objSheet As Object, objChartObject As ChartObject����For Each objSheet In ThisWorkbook.Sheets��������If TypeOf objSheet Is Chart Then������������Application.DisplayAlerts = False������������objSheet.Delete������������Application.DisplayAlerts = True��������Else������������For Each objChartObject In objSheet.ChartObjects����������������objChartObject.Delete������������Next��������End If����Next����Me.SaveEnd SubIch bin jetzt mal davon ausgegangen, dass die Tabellen und Charts nicht geschützt sind. Ansonsten muss der Schutz natürlich vorher aufgehoben werden.


Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: