Hallo zusammen,

ich habe ein Makro, das eine Sicherungskopie erstellt und in den Namen der Sicherungskopie aufnimmt. Jetzt will ich, dass in der Sicherungskopie nur die Zahlen und nicht die Formeln gespeichert werden. ICh bin inzwischen soweit, dass ich das hinbekomme, aber dann leider auch in der Ursprungsdatei nur Zahlen sind und ie Formeln weg sind.

Könnte mir jemand weiterhelfen? Ich möchte, dass in der Sicherungsdatei nur die Zahlen stehen und in der Ursprungsdatei die Formeln erhalten bleiben.

[...]
## Setting of path and file name
        strActPfad = ActiveWorkbook.Path
        strActName = ActiveWorkbook.Name
        strBackPfad = "mein Pfad"
        strBackup = strBackPfad & strActName & " - Backup " & Date & ".xlsm"
        strControl = MsgBox("Backup anlegen?", vbYesNo, "Backup")
        If strControl = vbNo Then
            Exit Sub
        Else

  '## Save Excel file
       Workbooks(strActName).Save
       ChDir strBackPfad
       Save as copy 
       ActiveWorkbook.SaveCopyAs Filename:=strBackup
        End If
            Else
                ChDir strBackPfad
                'Save as copy 
                ActiveWorkbook.SaveAs Filename:=strBackup
            End If
        End If

 ## Save the workbook under the old name again
        ChDir strActPfad
        ActiveWorkbook.SaveAs Filename:=strActName

[...]
 

Wenn ich den folgenden Code einfüge, werden Ursprungsdatei und Sicherungskopie mit Zahlen gespeichert, aber nur die Sicherungskopie soll mit Zahlen gespeichert werden:

Dim wksX As Worksheet 
    For Each wksX In ActiveWorkbook.Worksheets 
    wksX.UsedRange = wksX.UsedRange.Value 
Next wksX