Habe unten den Code Zum Zellen löschen.
Nur wäre es super diesen zu verfeinern.
Also nicht alle Zellen zu löschen sondern nur Teile.
Zb.MSG BOX "Welche Daten wollen sie löschen".von "Name1".."Name 2" usw. oder "Alle"
Dann Auswahl nach Namen stehen im Tab.Blatt "Jänner "J9-12 und nur den Bereich löschen,von D7:Q37
Oder auch alle löschen dann von D7:Q257
Private Sub CommandButton3_Click()
Sheets("Jänner").Unprotect "KATI"
ActiveSheet.Shapes("CommandButton3").Select
If MsgBox("Wollen sie wirklich alle Daten löschen ? ", vbQuestion + vbYesNo, _
" Nachfrage Datenbank Aktualisierung !") = vbNo Then Exit Sub
Range("D7:D37,D51:D81,D95:D125,D139:D169,D183:D213,D227:D257").ClearContents
Sheets("Jänner").Protect "KATI"
End Sub