sheet sparat abspeichern
30.09.2007 23:13:40
a*
ich möchte mit folgendem code ein sheet ("Anschreiben") kopieren und separat abspeichern.
Dabei sollen Briefkopf, Tabelleneigenschaften und nur die Werte der Tabelle übernommen werden ohne dass die Werte bei einer Veränderung im ursprünglichen sheet, geändert werden.
Der folgende code funktioniert auch tadellos, bis auf die Tatsache, dass eine "wenn-Funktion" in der Tabelle immer aktualisiert wird, wenn dies im ursprungs-sheet passiert.
Was ist zu ändern?
Sub speichern_beiklick()
Sheets("Anschreiben").Select
Sheets("Anschreiben").Copy
ActiveSheet.Unprotect
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
ActiveSheet.Protect
End Sub