Probleme mit Einfügen als Werte in VBA

Question

Ich habe ein Problem beim Einfügen als Werte eine Mehrfachauswahl, das ist was ich tun muss: Ich habe eine Tabelle, jede Zelle hat eine Formel und ich möchte ein Makro erstellen die jede Zelle kopieren und sich selbst als Wert einfügen (um jede Formel zu entfernen). Das Problem ist, dass es einige Zellen gibt, die gesperrt sind. Wenn ich also versuche, sie zu kopieren und einzufügen, gibt Excel einen Fehler zurück und stoppt die Prozedur. Jetzt habe ich zwei Möglichkeiten:

Fall 1: kopieren und Vergangenheit als Werte jeder Zelle einzeln, aber ich habe eine Menge Zellen, und ich muss dieses Verfahren sehr oft tun.

Fall 2: Erstellen Sie eine große Auswahl, die nur die nicht gesperrten Zellen enthält, und kopieren und fügen Sie sie dann alle zusammen.

Fall 2 scheint die bessere Wahl zu sein, aber mit Excel kann ich mehrere Auswahl nicht kopieren und einfügen ... hat jemand einen Tipp für mich? Ich nehme zwar die große fragmentarische Auswahl und kopiere und füge jeden Block der Auswahl einzeln, aber ich weiß nicht ob es möglich ist :(

Answer 1

Schleife durch jede Zelle in der Auswahl und überprüfe, ob sie gesperrt sind wie folgt aus:

For Each Z In Selection 
    if Not Z.Locked Then 
    'do copy paste here 
    End If 
Next Z