Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro gesperrte Zellen Formeln ausblenden
#1
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]
Antworten Top
#2
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
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • Theo
Antworten Top
#3
Hallo Atilla

Herzlichen Dank für Deine Hilfe.
Funktioniert tadellos.

Gruss und nochmals Danke...

Theo
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste