Nur Werte Speichern

Sub MappeFestwerteSpeichern()
Dim wsTab As Worksheet
Dim lngZähler As Long
Dim lngArray() As Long
Dim strName As String
' Name der aktiven Mappe in Textvariable schreiben
strName = ActiveWorkbook.Name
' den linken Teil des Namens vor dem Punkt in Variable schreiben
strName = Left(strName, InStr(strName, ".") - 1)
' Matrix auf die Zahl der worhandenen Arbetisblätter der Mappe erweitern
ReDim lngArray(1 To Worksheets.Count)
' In einer Schleife die die Matrix mit dem Index der Arbeitsblätter füllen
For lngZähler = 1 To Worksheets.Count
lngArray(lngZähler) = lngZähler
Next lngZähler
' Die per Matrix ermittleten Arbeitsblätter in eine neue Tabelle kopieren
ActiveWorkbook.Worksheets(lngArray).Copy
' In der neuen Mappe in den Arbeitsblättern den genutzten Bereich mit dem Werten befüllten
For Each wsTab In ActiveWorkbook.Worksheets
With wsTab.UsedRange
.Value = .Value
End With
Next wsTab
' Zusammensetzen des Namens mit Angabe des Datums
strName = strName & "B"
' Speichern der aktiven Mappe im Verzeichnis der Arbeitsmappe unter dem Namen
ActiveWorkbook.SaveAs ActiveWorkbook.Path & strName
End Sub