Ich möchte alle Zellinhalte aus NICHT gesperrten Zellen in mehreren Tabellen löschen.
Ist das mit VBA möglich?
Gruss Klaus
Sub t()
Dim WS As Worksheet
Dim Zelle As Range
For Each WS In ThisWorkbook.Worksheets
For Each Zelle In WS.UsedRange
If Zelle.Locked = False Then Zelle.ClearContents
Next Zelle
Next WS
End Sub
Sub DelUnlocked()
Dim ws As Worksheet
Dim c As Range
For Each ws In ActiveWorkbook.Worksheets
For Each c In ws.UsedRange
If c.Locked = False Then
c.ClearContents
End If
Next c
Next ws
End Sub