Clever-Excel-Forum

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

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

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

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

Auf welchen Teil in #4 reagieren wir vermutlich allergisch?

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

Dobi

LCohen

Fennek

Dobi

LCohen

schauan