fortschrittsbalken
18.01.2005 11:45:33
Bernd
mir ist heute morgen schon sehr gut geholfen worden.
dafür nocheinmal vielen dank.
der folgende code funktioniert perfekt.
Sub killcontents()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Sheets(1).Range("A1:CE461").Cells
If r.Locked = False Then r.ClearContents
Next r
Application.ScreenUpdating = True
End Sub
meine frage hierzu ist nun:
da es recht lange dauert, bis der code sämtliche geforderten zellen gelöscht hat, wäre es schön wenn mann da sowas wie einen fortschrittsbalken einbauen könnte.
dann der user echt einfacher und weiss wann er weitermachen kann.
wenn ihr dabei auch helfen könnt, wäre euch sehr dankbar.
cu bernd