Formeln entfernen für bestimmte Bereiche
28.03.2019 16:57:14
T
ich möchte ein einzelnes Tabellenblatt neu speichern und die Formeln in bestimmten Zellen durch die Werte ersetzen.
Alle Formeln ersetzen gelingt wunderbar mit
Sheets("Blatt").Copy
ActiveWorkbook.SaveAs Filename:=Speicherpfad & NeuerName, FileFormat:=xlOpenXMLStrictWorkbook
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveWorkbook.Close
Wenn ich im aktuellen Tabellenblatt in bestimmten Zellen die Formeln löschen möchte, funktioniert auch das mit
Sub FormelnWerte()
Range("B2").Select
Range("E28").Select
Range("F28").Select
Range("G28").Select
With ActiveSheet.UsedRange
.Formula = .Value
End With
End Sub
Ich wüsste also nicht warum folgender Code nicht funktioniert:
Sheets("Blatt").Copy
ActiveWorkbook.SaveAs Filename:=Speicherpfad & NeuerName, FileFormat:=xlOpenXMLStrictWorkbook
Range("C17").Select
Range("J17").Select
Range("J18").Select
Range("J19").Select
Range("J21").Select
Range("D26").Select
Range("I26").Select
Range("B50").Select
Range("F30").Select
Range("F32").Select
Range("F33").Select
With ActiveSheet.UsedRange
.Formula = .Value
End With
ActiveWorkbook.Close
Wo ist mein Denkfehler?
Vielen Dank schon mal für die Hilfe