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.

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


...und ich gelobe Besserung...

[-] 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
  ausgefüllte Zellen mit Makro übertragen dimi.idgt 7 186 07.02.2017, 11:21
Letzter Beitrag: dimi.idgt
  Datenüberprüfung leere Zellen ausblenden Robbie1985 6 198 21.01.2017, 18:00
Letzter Beitrag: Robbie1985
  Makro/VBA Reset Makro inkl. Dropdownmenüs Nordlicht85 7 226 12.01.2017, 10:46
Letzter Beitrag: Nordlicht85
  Zellen ausblenden Arni49 7 291 26.12.2016, 03:05
Letzter Beitrag: Arni49
  Zeilen ausblenden Makro Naleor 2 180 22.12.2016, 08:37
Letzter Beitrag: Naleor
  Gesperrte Dateien schreibgeschützt öffnen Marco 1 121 03.12.2016, 11:10
Letzter Beitrag: Kuwer
  Zellen Summe verstecken (VBA Makro Befehl ) Kj91 15 472 18.11.2016, 13:30
Letzter Beitrag: Kj91
Sad Inhalt einzelner Zellen mit Bedingung ausblenden Kexy28 8 328 04.11.2016, 19:23
Letzter Beitrag: WillWissen
  Hilfe bei Blinkende Zellen mit Formeln.. Icke 1 175 08.10.2016, 10:05
Letzter Beitrag: schauan
  Makro zur Verschiebung von Zellen tobipale 1 203 27.09.2016, 15:01
Letzter Beitrag: IchBinIch

Gehe zu:


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