Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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.
Anzeige

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.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige