Thema Datum  Von Nutzer Rating
Antwort
Rot Konditionelles Formatieren von Pivottabelle nach refresh
 02.07.2021 13:12:18 Berni
NotSolved

Ansicht des Beitrags:
Von:
Berni		 Datum:
02.07.2021 13:12:18		 Views:
762		 Rating:
     
Antwort:
  Ja
Thema:
Konditionelles Formatieren von Pivottabelle nach refresh

Hallo,

ich erstelle mit VBA ein neues Arbeitsbuch mit einer Tabelle und dazu in einem zweiten Arbeitsblatt eine Pivot Tabelle, in der ich über konditionelles Formatieren Zellen markiere, die von der Nachbarzelle abweichen.

Die Zeilen sind nach gemeinsamen Datum zusammengefasst. Klappe ich die zusammengefassten Zeilen nun auf, ist meine Formatierung weg.

Mit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 
    Columns("W:W").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$V1<>$W1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
 
End Sub

kann ich in dem Arbeitsblatt ein Makro erzeugen, das die Pivot Tabelle nach Änderungen neu formatiert, aber das ist nach Schliessen des Arbeitsbuches weg, da nicht gespeichert.

 

Wie kann ich über VBA ein Arbeitsbuch erzeugen und in einem Arbeitsblatt darin ein Makro.

 

Schon mal super vieln Dank im Voraus.

Berni

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Konditionelles Formatieren von Pivottabelle nach refresh
 02.07.2021 13:12:18 Berni
NotSolved