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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen