Skript Auswahl nicht gesperrter Zellen
19.02.2021 09:24:51
Bernhard
ich möchte per Makro alle nicht gesperrten Zellen innerhalb eines Arbeitsblattes auswählen und die Eingaben löschen.
Dazu habe ich folgendes Skript gefunden, welches funktioniert. Leider löscht es aber die Eingaben aller nicht gesperrten Zellen der Arbeitsmappe.
Sub ArbeitsmappeLeeren()
Dim ws As Integer
Dim src As Range, cell As Range
For ws = 1 To Worksheets.Count
Set src = Nothing
For Each cell In Worksheets(ws).UsedRange
If Not cell.Locked Then
If src Is Nothing Then
Set src = cell.MergeArea
Else
Set src = Union(src, cell.MergeArea)
End If
End If
Next cell
If Not src Is Nothing Then src.ClearContents
Next ws
End Sub