Clever-Excel-Forum

Guten Morgen Helfer

Ich möchte im aktiven Blatt in allen gesperrten Zellen die Formeln mit einem Makro ausblenden.
Ich habe folgenden Code gefunden:

Sub GesperrteZellen_ausblenden()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Locked = True Then
Zelle.FormulaHidden = True
Else
Zelle.FormulaHidden = False
End If
Next Zelle
End Sub

Dieser Code funktioniert aber nicht, wenn gesperrte Zellen verbunden sind.
Der Debugger gibt dann die Fehlermeldung: "Kann Teil einer verbundenen Zelle nicht ändern."
Könnt Ihr mir bitte helfen und den Code so umschreiben, dass auch verbundene Zellen geändert werden können? Oder ist das gar nicht möglich.

Danke für Eure Hilfe.

Gruss aus der Schweiz

Theo

Betreff angepaßt
Ralf [Bild: smilie.php?smile_ID=1810]

Hallo Theo,

so z.B.:

Code:
Sub GesperrteZellen_ausblenden()

   Dim Zelle As Range

   For Each Zelle In ActiveSheet.UsedRange

      If Zelle.Locked = True Then

         Zelle.MergeArea.FormulaHidden = True

      Else

         Zelle.MergeArea.FormulaHidden = False

      End If

   Next Zelle

End Sub

Und hier noch eine erweiterte Variante:

Code:
Sub Formelzellen_sperren_und_ausblenden()

   Dim Zelle As Range

   ActiveSheet.Unprotect

   With ActiveSheet.UsedRange

      Cells.FormulaHidden = False

      Cells.Locked = False

      For Each Zelle In .Cells

         If Zelle.HasFormula Then

            Zelle.MergeArea.Locked = True

            Zelle.MergeArea.FormulaHidden = True

         End If

      Next Zelle

   End With

   ActiveSheet.Protect

End Sub

Hallo Atilla

Herzlichen Dank für Deine Hilfe.
Funktioniert tadellos.

Gruss und nochmals Danke...

Theo

Theo

atilla

Theo