Formeln bei bestimmter Range mit kopieren
21.03.2018 10:07:32
Maxi
mit dem folgenden Code erstelle ich eine neue Excel Arbeitsmappe mit dem gleichen Inhalt wie das "Aktive" Worksheet. Ich "exportiere" also mehr oder weniger die eine Datei in eine neue.
Das funktioniert zwar, allerdings befinden sich mit meinem Code in der neuen Mappe nur die Werte der Zellen NICHT aber die Formeln.
Ich möchte aber, dass von C4 bis C10 die Formeln "mitkopiert" werden. Die restlichen Zellen sollen weiterhin ohne Formeln bleiben.
Kann jemand weiterhin helfen?
Danke
Sub Button_Export()
Dim wksExportTabelle As Worksheet
Dim wbkNeu As Workbook
Const Pfad = "C:\MeinPfad"
Set wksExportTabelle = ActiveWorkbook.Worksheets("MeinExport")
wksExportTabelle.Copy
Set wbkNeu = ActiveWorkbook
With wbkNeu.Worksheets("MeinExport").UsedRange
.Value = .Value
End With
'Neue Datei nach Zelle A1 und E8 benennen
wbkNeu.SaveAs Pfad & "\" & Range("A1").Value & "_" & Range("E8").Value, FileFormat:=-4143
End Sub
Anzeige