Gibts einen shortcut, so dass nur die Werte eingefügt werden - anstatt also "per Hand" auf Inhalte einfügen - Werte zu gehen?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^y"
End Sub
Private Sub Workbook_Open()
Application.OnKey "^y", "pasteVal"
End Sub
Un diesen in Ein allgemeines Modul:
Sub pasteVal()
If Application.CutCopyMode Then
Selection.PasteSpecial xlPasteValues
End If
End Sub
Mit Strg+Y kannst du dann die Werte einfügen!
Gruß Sepp