Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalt aller ungeschützt Zellen löschen

Inhalt aller ungeschützt Zellen löschen
11.07.2005 11:59:10
Harald
Hallo zusammen,
in meiner Datei sind bis auf wenige Eingabe-Zellen alle Zellen geschützt und der Blattschutz ist aktiviert.
Ist es möglich per VBA-Code die Inhalte aller ungeschützten Zellen auf einmal zu löschen, während das Arbeitsblatt geschützt ist ?
Wäre schön, wenn mir jemand den richten Code mitteilen könnte.
Vielen Dank.
Gruß, Harald G.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt aller ungeschützt Zellen löschen
11.07.2005 12:40:39
Uduuh
Hallo,
auf einmal nicht, aber nacheinander.
for each c in activesheet.specialcells(xlcelltypeconstants)
if not c.locked then c.clearcontents
next c
Gruß aus’m Pott
Udo

AW: Inhalt aller ungeschützt Zellen löschen
11.07.2005 12:55:18
Heiko
Hallo Harald,
z.B. so.

Sub UG_Loeschen()
Dim rngZellen As Range
Application.ScreenUpdating = False
For Each rngZellen In ActiveSheet.UsedRange
If rngZellen.AllowEdit Then rngZellen.ClearContents
Next rngZellen
Application.ScreenUpdating = True
MsgBox "Fertig"
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: Inhalt aller ungeschützt Zellen löschen
11.07.2005 13:23:08
Harald
.... funktioniert.
Danke Euch.
Gruß, Harald G. aus Köln.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige