Inhalte per makro loeschen
15.07.2005 10:05:27
Horst
Ich moechte mit folgendem makro alle nicht geschuetzen inhalte meiner zellen im Tabellenblatt loeschen.
-------------------------------------------------
Sub alleInhalteLoeschen()
'Makro löscht alle freie Zellen in den geschützten Blättern
Dim c As Range, ber As Range
Sheets("Tabelle1").Activate
Set ber = ActiveSheet.[A1:F51]
Range("$A$1:$F$51").Copy
For Each c In ber
If c.Locked = False Then
c = ""
End If
Next
End Sub
------------------------------------
Wenn das makro damit ferig ist, hat das makro auch das getan was ich wollte aber es kommt zu einem ungewuechten neben effekt. Denn alle Inhalte des geschuetzenbereichs sind in der zwischenablage und hat den bereich im Tabellenblatt makiert.
Wie kann ich da denn rueckgaengig machen?
Das heisst die zwischenablage wieder loeschen und die makierung des copierten kopierenden bereichs aufheben?
Wer hat einen tipp?
Gruss
Horst
Anzeige