ich versuche ClearContents auf mehreren Tabellenblättern auszuführen,
wobei lediglich ungeschützte Zellen betroffen sein sollen.
Zu allem Übel gibt es verbundene Zellen, die das ganze erschweren.
Für ein Tabellenblatt konnte ich das so lösen:
Sub ClearContentsTermine()
a = MsgBox("Sicher, dass Du alle Termineinträge löschen möchtest?", vbYesNo)
If a = vbNo Then Exit Sub Else
Application.ScreenUpdating = False
Worksheets("Termine").Activate
For Each zelle In Range("A1:S55")
On Error Resume Next
If zelle.Locked = False Then
zelle.Value = ""
End If
Next
Application.ScreenUpdating = True
End Sub
Liebe Grüße
E