Seite kopieren - nur xls-sheet ohne VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
vielen Dank für die schnelle Hilfe, genau das habe ich gesucht. Jedoch benötige ich nur eine Seite (Tabelle2) und nicht die ganze Datei. Kann man das auf die Anforderungen umschreiben?


Private Sub CommandButton1_Click()
'* H. Ziplies                                     *
'* 24.12.03                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
'   Kopie einer Datei ohne Formeln mit Format, Register nicht geschützt
Dim InI As Integer
Workbooks.Add
Application.ScreenUpdating = False              ' Bildschirmaktualisierung aus
With ThisWorkbook                                                   ' Datei mit Code
ActiveWorkbook.SaveAs .Path & "\Kopie_von_" & ThisWorkbook.Name  ' neue Datei Workbooks. _
Add
For InI = .Worksheets.Count To 1 Step -1                        ' Anzahl Register in  _
ThisWorkbook
Worksheets.Add
.Worksheets(InI).Cells.Copy
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues  ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
ActiveWorkbook.ActiveSheet.Name = .Worksheets(InI).Name
Next InI
Application.CutCopyMode = False                         ' Zwischenspeicher löschen
Application.DisplayAlerts = False                       ' keine Abfrage ob Tabelle gelö _
scht werden soll
For InI = 1 To Application.SheetsInNewWorkbook          ' alle Tabellen löschen die  _
durch Datei Neu vorhanden sind
Worksheets(ActiveWorkbook.Worksheets.Count).Delete  ' Löschen der Tabelle
Next InI
Application.DisplayAlerts = True
MsgBox "Reine Datentabelle gespeichert als: " & .Path & "\Kopie_von_" & ThisWorkbook. _
Name
ActiveWorkbook.Close True                               ' Dateikopie schließen mit  _
speichern
End With
Application.ScreenUpdating = True                   ' Bildschirmaktualisierung ein
End Sub

Bin leider nicht so gut in VBA . ;-(

Option Explicit ' Variablendefinition erforderlich Private Sub CommandButton1_Click() '* H. Ziplies * '* 04.07.2007 * '* erstellt von Hajo.Ziplies@web.de * '* http://Hajo-Excel.de/ ' Kopie einer Tabelle ohne Formeln mit Format, Register nicht geschützt Workbooks.Add Application.ScreenUpdating = False ' Bildschirmaktualisierung aus With ThisWorkbook ' Datei mit Code ActiveWorkbook.SaveAs .Path & "\Kopie_von_" & ThisWorkbook.Name ' neue Datei Workbooks. _ Add Worksheets.Add .Worksheets("Tabelle2").Cells.Copy With ActiveWorkbook.ActiveSheet.Cells .PasteSpecial Paste:=xlPasteValues ' Werte .PasteSpecial Paste:=xlFormats ' Formate End With ActiveWorkbook.ActiveSheet.Name = "Tabelle2 Duplikat" Application.CutCopyMode = False ' Zwischenspeicher löschen MsgBox "Reine Datentabelle gespeichert als: " & .Path & "\Kopie_von_" & ThisWorkbook. _ Name ActiveWorkbook.Close True ' Dateikopie schließen mit _ speichern End With Application.ScreenUpdating = True ' Bildschirmaktualisierung ein End Sub

Beliebteste Forumthreads (12 Monate)

Seite kopieren - nur xls-sheet ohne VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Seite kopieren - nur xls-sheet ohne VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread