ich möchte, dass bei Speichern unter aus Tabelle1 der Wert der Zelle C9 geöscht wird.....habe dies mit untenstehender VBA versucht zu lösen.....geht aber net....weiss jemand Rat?
Private Sub Workbook_BeforeSaveAs _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Unprotect Password:="Ja"
Application.Sheets("Tabelle1").[C9] = Delete
Sheets("Tabelle1").Protect contents:=True, Password:="Ja"
End Sub
Vielen Dank
Peter S