weiss jemand, wie unten stehender Code verändert werden muß, damit auch der Inhalt von verbundenen Zellen gelöscht wird ?
Gruß
Lutz
Sub Loeschen()
Code eingefügt mit Syntaxhighlighter 1.14
Dim rngAct As Range
For Each rngAct In ActiveSheet.UsedRange
If rngAct.Locked = False Then
rngAct.ClearContents
End If
Next rngAct
End Sub