Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle "nicht gesperrte Zellen" löschen

Alle "nicht gesperrte Zellen" löschen
07.07.2004 11:51:26
Björn
Hallo zusammen.
Wie kann ich in einem gesperrten Arbeitsblatt alle "nicht gesperrten Zellen", also die, die ich noch editieren kann, auf einmal löschen?
Vielen Dank im voraus
Björn

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle "nicht gesperrte Zellen" löschen
andreas
hallo,
den bereich und das sheet musst noch anpassen

Sub wegmit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Sheets("Tabelle3").Range("a1:E18")
For Each Zelle In Bereich
If Zelle.Locked = False Then Zelle.Value = ""
Next Zelle
End Sub

gruß
andreas e


http://www.fachforen.de
eine Linksammlung zu diversen fachforen
AW: Alle "nicht gesperrte Zellen" löschen
07.07.2004 13:20:55
Björn
Hat geklappt.
Vielen Dank für die schnelle Antwort
Gruss Björn
AW: Alle "nicht gesperrte Zellen" löschen
Udo
If Zelle.Locked = False Then Zelle.ClearContents
Dein Code führt dazu, dass sich Dateien aufblähen.
Udo
Anzeige
AW: Alle "nicht gesperrte Zellen" löschen
07.07.2004 15:43:22
Björn
Das geht auch.
Und sogar etwas schneller im gesamten Durchlauf.
Danke

108 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige