worksheet verschieben
26.08.2007 19:18:33
a*
folgendes problem:
-ich möchte ein worksheet kopieren.
-ein neues workbook öffnen und es dort einfügen.
-es sollen allerdings nur werte eingefügt werden. makros sollen inaktiviert bleiben und auch keine abfrage kommen.
-danach soll der dialog "speichern unter" erscheinen.
ich hab folgenden code drin, der aber teilweise änderungen im ursprünglichen workbook übernimmt:
Sub speichern_beiklick()
Sheets("Anschreiben").Select
Sheets("Anschreiben").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub