Office: Arbeitsmappe kopieren ohne Formeln und VBA

1u1 · 9. März 2008

Hallo,

zu diesem Thema habe ich einen Lösungsansatz über Google gefunden.

Code:

Sub Copy_AM()
'**************************************************
'* H. Ziplies *
'* 24.12.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* Homeseite - Hajo's Excelseiten *
'**************************************************
On Error GoTo Errorhandler
' Kopie einer Datei ohne Formeln mit Format, Register nicht geschützt
Dim InI As Integer
Dim Datum As String
Dim Workbooknamenew As String
Dim Pfad As String
Pfad = "C:\Test\T1\"

Workbooknamenew = Cells(1, 1) & "_" & Cells(2, 2) & "_" & Cells(3, 3) & "_" & Cells(4, 4) & "_" & "test.xls" 'Zellen Tabellenblatt
Workbooks.Add
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With ThisWorkbook ' Datei mit Code
ActiveWorkbook.SaveAs Filename:=Pfad & Workbooknamenew

For InI = .Worksheets.Count To 1 Step -1 ' Anzahl Register in ThisWorkbook
Worksheets.Add
.Worksheets(InI).Cells.Copy
'.Worksheets(InI).Copy 'Versuch
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate

End With
ActiveWorkbook.ActiveSheet.Name = .Worksheets(InI).Name

With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False

End With
Application.DisplayFormulaBar = False ' Gitternetzlinien aus
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 "Die " & ThisWorkbook.Name & " wurde gespeichert unter: " & Pfad & Format(Now, "DD-MM-YYYY hh-mm") & " Kopie von " & Workbooknamenew

ActiveWorkbook.Close True ' Dateikopie schließen mit speichern
End With
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein

Errorhandler:
' MsgBox Err.Number & " : " & Err.Description, vbOKOnly + vbExclamation, "Fehlermeldung"
Resume Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich komme aber irgendwie nicht weiter.

Die Arbeitsmappe enthält ungebundene Steuerelemente (Checkboxen), welche nicht ausgewertet werden (reine Optik).

Mit der SUB werden aber nur die Zellen und die Formatierungen kopiert.

Ab Ihr ein Idee, wie ich die "Checkboxen" in die andere AM bekomme ?

Wie kann ich die "neue" AM über -GetSaveAs- speichern.... ?

Vielen Dank im vorraus!

M

:)

jinx · 11. März 2008

Moin, 1und1,

zwei andere Ansätze:

Code:

Sub MappeFestwerteSpeichern()

Dim wsTab As Worksheet
Dim lngZähler As Long
Dim lngArray() As Long
Dim strName As String

strName = ActiveWorkbook.Name
strName = Left(strName, InStr(strName, ".") - 1)
ReDim lngArray(1 To Worksheets.Count)

For lngZähler = 1 To Worksheets.Count
lngArray(lngZähler) = lngZähler
Next lngZähler

ActiveWorkbook.Worksheets(lngArray).Copy

For Each wsTab In ActiveWorkbook.Worksheets
With wsTab.UsedRange
.Value = .Value
End With
Next wsTab

strName = strName & Format(Date, "DDMMYYYY")
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strName

End Sub

Sub MappeFestwerteSpeichern2()

Dim wsTab As Worksheet
Dim strName As String

strName = ActiveWorkbook.Name
strName = Left(strName, InStr(strName, ".") - 1)
strName = strName & Format(Date, "_DDMMYYYY")
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strName

For Each wsTab In ActiveWorkbook.Worksheets
With wsTab.UsedRange
.Value = .Value
End With
Next wsTab

ActiveWorkbook.Save

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mappe unter anderem Namen speichern und Werte umschreiben. Ggf. die Anweisung zum Speichern wie folgt verwenden:

Code:

Dim strName
strName = Application.GetSaveAsFilename
If strName = vbFalse Then
MsgBox "Abbruch durch Benutzer"
Else
ActiveWorkbook.SaveAs strName
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

1u1 · 12. März 2008

Hallo jinx,

Suuuper Lösung, danke. Es funktioniert so wie ich mir das vorgestellt habe.
Eine Bitte hätte ich noch: Könntest Du mir bitte das wichtigste der Sub erläutern / komentieren (Verständnisproblem).
Ich habe mit der Sub noch so ein Verständnisproblem

schon mal vielen Dank

M.

jinx · 12. März 2008

Moin, 1und1,

meinst Du so etwas:

Code:

1u1 · 13. März 2008

Hallo jinx,

Vielen Dank für deine Hilfe.
Dein Code hat mir sehr geholfen.

Micha

Office: Arbeitsmappe kopieren ohne Formeln und VBA

Arbeitsmappe kopieren ohne Formeln und VBA

Arbeitsmappe kopieren ohne Formeln und VBA

Arbeitsmappe kopieren ohne Formeln und VBA

Arbeitsmappe kopieren ohne Formeln und VBA - Similar Threads - Arbeitsmappe kopieren Formeln

Kopieren eines Makromoduls in eine andere Arbeitsmappe

Zusammenführen von Kopien einer freigegebenen Arbeitsmappe

Kopieren von Zellenformatvorlagen aus einer anderen Arbeitsmappe

Speichern einer Kopie einer Arbeitsmappe auf dem lokalen Computer

Bereich in andere Arbeitsmappe kopieren

Tabellenblatt in andere Arbeitsmappen kopieren

Arbeitsmappe kopieren und Werte einfügen