Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aktives Sheet zweimal in neue Arbeitsmappe

Forumthread: Aktives Sheet zweimal in neue Arbeitsmappe

Aktives Sheet zweimal in neue Arbeitsmappe
17.12.2005 18:49:18
Peter
Guten Abend
Ich möchte das aktive Sheet gleich zweimal in eine neue Arbeitsmappe einfügen und zwar einmal unformatiert (zwecks späterem Import in anderes Programm) und einmal formatiert.
Der Name des Workbooks sollte dem Namen des eingefügten Sheets entsprechen und das zweite, formatierte Sheet sollte aktiv sein.
Ein erster Versuch mit der formatierten Tabelle ist geglückt (vgl. nachstehend).
Wer kann mir helfen, auch das unformatierte Sheet zu kreieren und dann die zweite Tabelle wieder anzuwählen?
Herzlichen Dank.
Peter
...
...
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name
...
...
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktives Sheet zweimal in neue Arbeitsmappe
17.12.2005 19:29:16
Josef
Hallo Peter!
Probier's mal so!
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen
ActiveWorkbook.Sheets(1).Cells.ClearFormats
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Aktives Sheet zweimal in neue Arbeitsmappe
17.12.2005 19:49:37
Peter
Hallo Sepp
Dein Code liefert mir in der neuen Arbeitsmappe eine Tabelle mit dem unformatierten Inhalt (wie gewünscht).
Was nun noch fehlt, ist, dass in der gleichen neuen Arbeitsmappe eine zweite Tabelle mit dem gleichen Inhalt eingefügt wird, jedoch formatiert wie die die Ursprungstabelle.
Sicher kriegen wir das auch noch hin.
Danke, Peter
Anzeige
AW: Aktives Sheet zweimal in neue Arbeitsmappe
17.12.2005 20:01:09
Josef
Hallo Peter!
Dann halt so!
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen
With ActiveWorkbook
  .Sheets(1).Copy after:=.Sheets(1)
  .Sheets(1).Cells.ClearFormats
  .Sheets(2).Activate
  .SaveAs SavePath & "\" & ActiveSheet.Name
End With

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Aktives Sheet zweimal in neue Arbeitsmappe
17.12.2005 20:45:38
Peter
Hallo Sepp
Funktioniert tadellos. Danke vielmals
Peter
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige