Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Bei Problemen mit der Erreichbarkeit der Foren bitte den Link / Favoriten prüfen und ersetzen. Dazu über die Startseite ins gewünschte Forum wechseln und zu den Favoriten hinzufügen. Excel ist derzeit z.B. unter http://www.clever-excel-forum.de/forum-2.html zu erreichen.


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
?mage
to 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 Benutzer sagt Danke an atilla für diesen Beitrag:
  • Theo
to top
#3
Hallo Atilla

Herzlichen Dank für Deine Hilfe.
Funktioniert tadellos.

Gruss und nochmals Danke...

Theo
to top


Gehe zu:


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