Löschen von Zellen die nicht gesperrt sind

Bild

Betrifft: Löschen von Zellen die nicht gesperrt sind
von: Tobias
Geschrieben am: 28.11.2003 11:09:27

Hi zusammen,

habe folgendes Problem:

Auf einem Tabellenblatt habe ich nur gewisse Zellen zur Eingabe freigstellt also nicht gesperrt. Nach Eingabe dieser Zellen ( bei aktiven Blattschutz), möchte ich nun die Möglichkeit haben, daß ich alle Inhalte der nicht gesperrten Zellen ( also diejenigen in die etwas geschreiben werden kann)lösche.

Geht dies mit ein in das Tabellenblatt eingefügtes CommandButtom und ja mit welchem Makro ?

Für Eure Hilfe vielen Dank im voraus.

Grüße
Tobias

Bild


Betrifft: AW: Löschen von Zellen die nicht gesperrt sind
von: FP
Geschrieben am: 28.11.2003 11:17:05

Hallo Tobias,

probier mal dieses Makro

Public

Sub ClearInpCells()
  Dim rngCell As Range
  For Each rngCell In ActiveCell.CurrentRegion.Cells
    With rngCell
      If .Locked = False Then .ClearContents
    End With
  Next
End Sub


Servus aus dem Salzkammergut
Franz


Bild


Betrifft: AW: Löschen von Zellen die nicht gesperrt sind
von: Tobias
Geschrieben am: 28.11.2003 11:25:31

Geht leider nicht er meldet, daß dieser Befehl

For Each rngCell In ActiveCell.CurrentRegion.Cells

nicht in einem geschützten Arbeitsblatt verwendet werden kann !

Die andere Frage ist noch, wie kann ich das CommandButtom in dem geschützen Arbeitsblatt "ungesperrt" lassen, sprich, daß es genutzt werden kann ?


Bild


Betrifft: AW: Löschen von Zellen die nicht gesperrt sind
von: FP
Geschrieben am: 28.11.2003 20:09:11

Hallo Tobias,

1) Na ja, dann heben wir eben vorher den Blattschutz auf
2) eine Schaltfläche bleibt auch bei aktivem Blattschutz benutzbar


Sub ClearInpCells()
  Dim rngCell As Range
  Application.Interactive = False
  ActiveSheet.Unprotect Password:="Passwort"
  For Each rngCell In ActiveCell.CurrentRegion.Cells
    With rngCell
      If .Locked = False Then .ClearContents
    End With
  Next
  ActiveSheet.Protect Password:="Passwort"
  Application.Interactive = True
End Sub


Servus aus dem Salzkammergut
Franz


Bild

Beiträge aus den Excel-Beispielen zum Thema " Löschen von Zellen die nicht gesperrt sind"