Bedingte Formatierung auf andere Arbeitsblätter übertragen

Hallo Felix,

du könntest
hier anregen, dass man die bedingte Formatierung auch auf gruppierte Blätter anwenden können sollte.

Claus

Hallo Felix,

nein, die gibt es nicht. Wenn du per Copy & Paste Formate überträgst, werden immer alle Formate übertragen.

Oder du überträgst alle Formate und löschst die normalen Formate wieder aus den anderen Blättern wieder raus. Die händischen Formate kannst du auf einen Rutsch rauslöschen, weil du dazu die Blätter gruppieren kannst, was bei der bedingten Formatierung nicht
möglich ist.

Claus

Danke Claus! Gibt es keine alternative Lösung ohne Makros?

Gruß,

Felix

Hallo Felix,

wenn du alle Arbeitsblätter formatieren möchtest, probiere mal folgendes Makro. Sonst im Makro die gewünschten Blätter anpassen. Selektiere das bereits formatierte Blatt und starte das Makro:

Sub CopyFC()

Dim i As Integer

Dim fc As FormatCondition

Dim wsh As Worksheet

Dim fcAddr As String, fcClr As String, fcFrml

With ActiveSheet

   For Each wsh In Worksheets

      i = 1

      If wsh.Name <> .Name Then

         For Each fc In .UsedRange.FormatConditions

            fcAddr = fc.AppliesTo.Address

            fcClr = .UsedRange.FormatConditions(i).Interior.Color

            fcFrml = fc.Formula1

            With wsh.Range(fcAddr)

               .FormatConditions.Add Type:=xlExpression, Formula1:=fcFrml

               With .FormatConditions(1).Interior

                  .Color = fcClr

               End With

               i = i + 1

            End With

         Next

      End If

   Next

End With

End Sub

Claus

Hallo,

bei mir hing das Problem offenbar an bedingten Formatierungen, die von Office falsch kopiert werden.

Das Arbeitsblatt musste ich neu aufbauen, wobei ich die Formeln nur als Text kopiert habe.

In meinem Arbeitsblatt habe ich monatliche Tabellen, die ich per Kopie erstelle. Hier muss man darauf achten, dass beim Einfügen von Zeilen Einzelformatierungen erzeugt werden. Das bedeutet, statt einer bedingten Formatierung für 50 Zeilen hat man plötzlich
mehrere (und nicht nur an der betroffenen Stelle tritt das Problem auf). Irgendwann werden es mehr, und recht schnell zuviel, als dass Excel damit klarkäme - das beschriebene Problem tritt auf.

Die Lösung oder besser der Workaround: Nach größeren Änderungen kontrolliere ich regelmäßig die bedingten Formatierungen.