Zelle leeren
20.01.2006 08:27:31
serge
ich habe eine Datei mit mehreren geschützten Arbeitsblätter.
Ich möchte nun alle ungeschützten Zellen anspringen und von Inhalt befreien.
Ich sehen es in etwa so:
Sub löschen()
Sheets("General").Select
ActiveCell.Next.Activate
Selection.ClearContents
'next!!!........(Schleife bis alle Zellen leer sind!)
Sheets("Misc.").Select
'da kommt das ........hin
Sheets("General").Select
Range("A1").Select
End Sub
wer hilft mir auf die Sprünge?
Danke
Serge