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


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

Excel 2007
[-] 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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Gesperrte Dateien schreibgeschützt öffnen Marco 1 21 Vor 1 Stunde
Letzter Beitrag: Kuwer
  Zellen Summe verstecken (VBA Makro Befehl ) Kj91 15 182 18.11.2016, 13:30
Letzter Beitrag: Kj91
Sad Inhalt einzelner Zellen mit Bedingung ausblenden Kexy28 8 108 04.11.2016, 19:23
Letzter Beitrag: WillWissen
  Hilfe bei Blinkende Zellen mit Formeln.. Icke 1 87 08.10.2016, 10:05
Letzter Beitrag: schauan
  Makro zur Verschiebung von Zellen tobipale 1 100 27.09.2016, 15:01
Letzter Beitrag: IchBinIch
  Makro: Spalte mitsamt Formeln kopieren chrjh 8 151 19.09.2016, 15:46
Letzter Beitrag: chrjh
  [S] kleines Makro zum exportieren von Zellen in eine txt Datei bernd99 8 345 24.08.2016, 09:43
Letzter Beitrag: snb
  Formeln durch Makro fortschreiben D K 7 294 15.08.2016, 08:02
Letzter Beitrag: RPP63
  Werte der PT im PC ausblenden ? earthwalkerx 16 1.131 12.07.2016, 11:46
Letzter Beitrag: earthwalkerx
  Formeln per Makro x mal runterziehen FelixWeb 10 717 25.05.2016, 10:15
Letzter Beitrag: Steffl

Gehe zu:


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