Office: (Office 365) Formeln löschen Werte behalten

Hallo Zusammen,

mit dem unten stehenden Code kopiere ich zwei Blätter als xlsx an einen Ort.
In der Hauptdatei sind in einigen Zellen Formel die Werte ergeben.
Aus der gespeicherten Datei möchte ich die Werte holen.
Leider funktioniert das nicht. Bekomme dann nur eine Null angezeigt.

Kann mir jemand den Code so erweitern das die Formeln gelöscht und die Werte übernommen werden ?

Mir will es nicht gelingen.

Code:

Sub copyData()


Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets(Array("BlattEingaben", "BlattStörungen")).copy

ActiveWorkbook.SaveAs Filename:="\\xxxxxx\xxxxxxx\xxxxxxxx\Mxxxxxxxxxxx.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close 0

End Sub

 

Hi,

folgenden Code direkt nach dem Kopieren der Blätter:

Code:

    Dim intTab As Integer
    With ActiveWorkbook
        For intTab = 1 To 2
            With Worksheets(intTab)
                .UsedRange.Copy
                .UsedRange.Cells(1).PasteSpecial Paste:=xlValues
            End With
        Next intTab
    End With

---

 

Hallo Karin,
klasse funktioniert super.
Kann man das auch auf einen Bereich begrenzen ?
Benötige es nur in den Spalten C:AB

 

Hi,

ändere diese beiden Zeilen:

Code:

                .Columns("C:AB").Copy
                .Cells(1, 3).PasteSpecial Paste:=xlValues

---

 

Danke Karin.

Super Sache .