Häkchen löschen
16.02.2005 15:49:47
Werner
Habe ein geschütztes Dokument mit ungeschützten Zellen, teilweise auch verbundene.
Sepp hatte mir ein Makro erstellt, womit ich die Einträge löschen kann, was auch einwandfrei funktioniert.
Nun habe ich dieses um einige Formular-Kontrollkästchen erweitert und stehe vor dem Problem, dass die Häkchen nicht gelöscht werden.
Wer kann helfen?
Sub ung_Zellen_löschen()
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:k60]
For Each c In ber
If c.Locked = False Then
c = ""
End If
Next
End Sub
mfg Werner