ungeschütze Zellen Inhalt löschen

Computer: Software & Programmierung Office Software
1

Hallo Zusammen,

folgendes Problem:
In einer Exceltabelle sind mehrere Spalten gesperrt bzw. nicht gesperrt. Immer wieder mal müssen allerdings alle Daten der ungesperrten Zellen gelöscht werden.
Das ist aktuell nur möglich, wenn ich die ungesperrten Zellen auswähle. Sobald ich in der Auswahl ungesperrte und gesperrte Zellen habe, kommt eine Fehlermeldung (Die Zelle oder das Diagramm, dass sie ändern möchten, ist schreibgeschützt). Gibt es eine Möglichkeit, dass ich gesperrte und ungesperrte Zellen auswählen kann, dies Excel erkennt und nur die ungesperrten Zellen gelöscht werden?

Vielen Dank

Michael

2

Das ist aktuell nur möglich, wenn ich die ungesperrten Zellen
auswähle. Sobald ich in der Auswahl ungesperrte und gesperrte
Zellen habe, kommt eine Fehlermeldung (Die Zelle oder das
Diagramm, dass sie ändern möchten, ist schreibgeschützt). Gibt
es eine Möglichkeit, dass ich gesperrte und ungesperrte Zellen
auswählen kann, dies Excel erkennt und nur die ungesperrten
Zellen gelöscht werden?

Hallo Michael,

vielleicht mit einem makro:

Sub Loesch()
Dim Zelle As Range
For Each Zelle In Selection
 If Not Zelle.Locked Then Zelle.ClearContents
Next Zelle
End Sub

Gruß
Reinhard

3

Hallo Reinhard,

habe dieses Makro versucht einzufügen und mit einer Tastenkombnation hinterlegt. Leider passiert nichts.

Michael

Hallo Michael,

vielleicht mit einem makro:

Sub Loesch()
Dim Zelle As Range
For Each Zelle In Selection
If Not Zelle.Locked Then Zelle.ClearContents
Next Zelle
End Sub

Gruß
Reinhard

4

habe dieses Makro versucht einzufügen und mit einer
Tastenkombnation hinterlegt. Leider passiert nichts.

Hallo Michael,

kann ich nicht nachvollziehen, das Makro funktioniert.
Lade mal eine kleine Beispielmappe hoch mit FAQ:2606

Gruß
Reinhard

Sub Loesch()
Dim Zelle As Range
For Each Zelle In Selection
If Not Zelle.Locked Then Zelle.ClearContents
Next Zelle
End Sub

5

Hallo Reinhard,

http://www.hostarea.de/server-10/Oktober-0433e52771.xls

anbei hochgeladen.

Danke

Sub Loesch()
Dim Zelle As Range
For Each Zelle In Selection
If Not Zelle.Locked Then Zelle.ClearContents
Next Zelle
End Sub

6

http://www.hostarea.de/server-10/Oktober-0433e52771.xls

Hallo Michael,

tja nun, Makro klappt immer noch.

Ich markiere A1:smiley:10, nach Makrodurchlauf sind B1:B10 und D1:smiley:10 leer.

Gruß
Reinhard

7

Halo Reinhard,

tja was soll ich sagen…
Es geht nun. Fehler war noch auf meiner Seite.

Vielen Dank

Michael

Guten Tag,