ungeschützte Zellen löschen
23.01.2005 20:44:51
Werner
Sub ung_Zellen_löschen()
' Makro löscht freie Zellen im geschützten Blatt
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:k60]
For Each c In ber
If c.Locked = False Then
c.ClearContents
End If
Next
End Sub
Nun habe ich aber das Problem, dass sich in dem Dokument auch verbundene Zellen befinden.
Dadurch erhalte ich diese Fehlermeldung.
Laufzeitfehler 1004:
Kann Teil einer verbundenen Zelle nicht ändern.
Hat jemand eine Lösung auch diese Zellen zu erfassen.
mfg Werner