Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
...
...

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige