Inhalt aus Zeilen und Spalten Löschen die nicht gesperrt sind

[Dobi]

Hallo zusammen, 
ich bin neu hier da ich vor einem Excel/ VBA Problem stehe. 

Für die Arbeit habe ich eine Entscheidungsmodell aufgebaut, welches verschiedene Lieferanten betrachtet und bewertet. Zwischen den einzelnen Lieferanten sind ausgeblendete Spalten und Zeilen mit Formeln, welche gesperrt sind. 
Mein Plan im Kopf ist, dass beim Drücken einer Schaltfläche (nennen wir sie "Blatt leeren") der Zellinhalt der nicht gesperrten Zellen gelöscht wird. Der Bereich wäre von J9:AL74
ich habe schon verschiedene Makros gefunden aber leider hat nichts davon geklappt. 
Danke im Voraus. 

Dobi

[LCohen]

Pseudocode:

Von i = 1 bis Bereich-Zeilen
Von j = 1 bis Bereich-Spalten
Wenn Bereich(i,j).Schutz = Falsch Dann Bereich(i,j).Leeren
Nächstes j
Nächstes i

[Fennek]

Hallo,

das VBA-Schlüsselwort ist "Range.locked". Also sollen alle Zellen gelöscht werden, deren Wert "false" ist.

Pseudocode

Code:

for each ar in activesheet.usedrange.cells
     if ar.locked = false then ar.clear
next ar

mfg

[Dobi]

Danke Fennek, 
leider kommt bei mir die Meldung dass dies bei verbundenen Zellen nicht möglich ist. Muss ich das nun durch einen weiteren Code ergänzen?

Grüße
Dobi

[LCohen]

Auf welchen Teil in #4 reagieren wir vermutlich allergisch?

[schauan]

Hallöchen,

Code:

For Each ar In ActiveSheet.UsedRange.Cells
     If ar.Locked = False And ar.MergeCells = False Then ar.Clear
Next ar

Wenn Du was in den verbundenen Zellen entfernen willst muss man sich was anderes einfallen lassen, z.B.

Code:

For Each ar In ActiveSheet.UsedRange.Cells
     If ar.Locked = False And ar.MergeCells = False Then ar.Clear
     If ar.Locked = False And ar.MergeCells = True Then ar.Value = ""
Next ar