ich versuche gerade mit meinem Script :
Worksheets("Scanner").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, CountOfLines
End With
Mein Arbeitsblatt ohne Formeln zu kopieren das Script löscht dabei die Formeln kann es aber nicht weil ich das Blatt geschützt habe so das ich nicht ausversehen die Formeln verändere. Das ganze beist sich irgendwie und ich finde keine Lösung ich hoffe ihr habt ein Tip für mich
Gruß
Steffen