hab aus dem Forum den Code zum Löschen von Zellinhalten. Das Problem nun: kann man das Erweitern auf 3 Felder z.B. D3, D5 und D7? Hab es versucht aber funktioniert leider nicht. Wollte das ganze beim öffnen der Datei machen lassen, damir die in den Zellen stehenden Inhalte gelöscht werden beim erneuten Öffnen. Kann mir jemand den Code anpassen, das Blatt ist aber Passwortgeschützt und es können diese Zellen nur mit dem Tabulator angesprungen werden,wäre super.
Code:
Private Sub CommandButton1_Click()
Dim objBlatt
For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name <> "Tabelle1" Then
objBlatt.Range("D3").ClearContents
End If
Next
End Sub
Vielen Dank
Gruß Torge