Arbeitsmappe ohne Formeln und Makros speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
hier mal ein Makro, das von der aktiven Datei eine Kopie ohne Makros anlegt, die alte Datei löscht und die neue Datei unter dem alten Dateinamen speichert (dieser Teil ist aber erstmal auskommentiert)


Sub DateiKopierenNurWerte()
Dim wbNeu As Workbook
Dim wbAlt As Workbook
Dim sh As Worksheet
Dim i As Long
Dim DatName As String
Set wbAlt = ActiveWorkbook
Set wbNeu = Workbooks.Add(wbAlt.Worksheets.Count)
'--- Daten kopieren nur Werte
For i = 1 To wbAlt.Worksheets.Count
wbAlt.Sheets(i).Cells.Copy
wbNeu.Sheets(i).Cells(1, 1).PasteSpecial xlPasteValues
wbNeu.Sheets(i).Cells(1, 1).PasteSpecial xlPasteFormats
wbNeu.Sheets(i).Name = wbAlt.Sheets(i).Name
Next
'--- altes Datei löschen, neue Datei unter gleichem Namen Speichern
'--- (diesen Teil solltest du lieber erstmal auskommentiert lassen)
'DatName = wbAlt.FullName
'wbAlt.Saved = True
'wbAlt.Close 'alte Datei schließen
'Kill DatName 'alte Datei löschen
'wbNeu.SaveAs DatName 'neue Datei unter alten Namen speichern
End Sub

genauer gesagt, legt dieses Marko eine neue Datei an und kopiert Werte, Formate und Blattnamen der aktiven Datei in eine neue Datei. Dabei gehen Makros und Seiteneinstellungen (Druckbereiche) allerdings verloren (für Makros war das ja von dir gewünscht)
im 2. Teil, den ich vorerst deaktiviert habe, wird dann die alte Datei gelöscht und die neue unter dem alten Namen gespreichert.
Dh. dieses Makro solltest du in einer 3. unabhängigen Datei anlegen.
Gruß, Daniel

Sub DateiKopierenNurWerte() Dim wbNeu As Workbook Dim wbAlt As Workbook Dim sh As Worksheet Dim i As Long Dim Anz As Long Dim DatName As String Set wbAlt = ActiveWorkbook Anz = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wbAlt.Sheets.Count Set wbNeu = Workbooks.Add Application.SheetsInNewWorkbook = Anz '--- Daten kopieren nur Werte For i = 1 To wbAlt.Worksheets.Count wbAlt.Sheets(i).Cells.Copy wbNeu.Sheets(i).Cells(1, 1).PasteSpecial xlPasteValues wbNeu.Sheets(i).Cells(1, 1).PasteSpecial xlPasteFormats wbNeu.Sheets(i).Name = wbAlt.Sheets(i).Name Next '--- altes Datei löschen, neue Datei unter gleichem Namen Speichern '--- (diesen Teil solltest du lieber erstmal auskommentiert lassen) 'DatName = wbAlt.FullName 'wbAlt.Saved = True 'wbAlt.Close 'alte Datei schließen 'Kill DatName 'alte Datei löschen 'wbNeu.SaveAs DatName 'neue Datei unter alten Namen speichern End Sub

Hallo Mark,
das sollte eigentlich reichen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub DateiFix()
  Dim objWS As Worksheet

  With ThisWorkbook
    For Each objWS In .Worksheets
      objWS.UsedRange = objWS.UsedRange.Value
    Next

    deleteAllCodeAndModules .Name

    .Save
  End With

End Sub

Sub deleteAllCodeAndModules(ByVal WBook As String)
  Dim objVBComp As Object
  With Workbooks(WBook).VBProject
    For Each objVBComp In .vbcomponents
      If objVBComp.Type = 100 Then
        With .vbcomponents(objVBComp.Name).CodeModule
          .DeleteLines 1, .CountOfLines
        End With
      Else
        .vbcomponents.Remove objVBComp
      End If
    Next
  End With
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe ohne Formeln und Makros speichern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe ohne Formeln und Makros speichern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread