zellen leeren ueber mehrere Arbeitsblaetter
15.11.2006 23:04:56
Friedemann
Ich habe 10 Arbeitsblaetter in einem Workbook und moechte auf all diesen Arbeitsblaettern die ungeschuetzten Zellen ausgewaehlte Bereiche leeren.
Alle ! ungeschuetzten Zellen leeren ginge so:
Private Sub CommandButton1_Click() <- ist auf dem ersten Arbeitsblatt
Dim z As Range, sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
For Each z In sh.UsedRange
If z.MergeArea.Locked = False Then z.MergeArea.ClearContents
Next z
Next sh
End Sub
(MergeArea ist nur weil einige der Zellen dies benoetigen)
Ich moechte aber pro sheet nur ausgewaehlte Zellen leeren und diese Bereiche sind auch noch pro Arbeitsblatt anders.
Hat irgend jemand eine zuendende Idee wie ich das script anpassen muss ?
Danke an alle
Friedemann