Tabelle ohne Formeln kopieren

Private Sub CommandButton2_Click() ActiveSheet.Copy Cells.Copy Range("A1").Select Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich habe deinen Code wie folgt geändert:


Private Sub CommandButton3_Click()
'   erstellt von Hajo.Ziplies@web.de 21.03.03
'   Kopie einer Datei ohne Formeln, Register nicht geschützt
Dim InI As Integer
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Kopie_von " & ThisWorkbook.Name
For InI = ThisWorkbook.Worksheets.Count To 1 Step -1
If InI <> ThisWorkbook.Worksheets.Count Then Sheets.Add
If ThisWorkbook.Worksheets(InI).Visible = True Then     'Wenn Blatt sichtbar dann kopieren
ThisWorkbook.Worksheets(InI).Cells.Copy
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues      ' Werte
.PasteSpecial Paste:=xlFormats          ' Format
.Cells(1, 1).Select                     ' Zelle A1 Selektieren damit nicht die ganze Tabelle selektiv ist
End With
ActiveWorkbook.ActiveSheet.Name = ThisWorkbook.Worksheets(InI).Name
End If
Next InI
Application.CutCopyMode = False         'Zwischenspeicher löschen
MsgBox "Reine Datentabelle gespeichert als: " & ThisWorkbook.Path & "\Kopie_von" & ThisWorkbook.Name
ActiveWorkbook.Close True
End Sub

.......... und es fuktioniert.
Nochmal vielen Dank für deine Hilfe.
MfG
Atze
PS:
Kann ich mit WorkBooks.Add eine Auswahl treffen (Anzahl der Leer-Blätter)?

Hallo Atze
dafür wird die Einstellung übernommen die Du unter Extra Optionen einstellst. Du kannst über VBA nur diese Einstellung verändern und wieder zurückstellen.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle ohne Formeln kopieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread