Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

sheet ohne makros verschieben

sheet ohne makros verschieben
28.08.2007 21:35:00
a*
hallo zusammen,
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sheet ohne makros verschieben
28.08.2007 23:55:00
Daniel
Hi
hab grad kein Excel zum Testen, aber so in etwa müsste es funktionieren (bis auf das Speichern unter, aber das kann ich wie gesagt momentan nicht ausprobieren, deswegen lass ich die Frage mal offen.)
Workbooks.add
activesheet.name = "Anschreiben"
thisworkbook.sheets("Anschreiben").usedrange.copy
activesheet.range("A1").pastespecial xlpastevalues
thisworkbook.sheets("Anschreiben").usedrange.copy
activesheet.range("A1").pastespecial xlpasteformats
activeworkbook.close Savechanges:=true
Gruß, Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige