bedingte Formatierung in Pivot Datenfeldern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BedingtesFormat() Dim pvField As PivotField Dim pvTable As PivotTable Dim BedFormZelle As Range Set pvTable = ActiveSheet.PivotTables(1) On Error Resume Next Set BedFormZelle = Application.InputBox("Bitte die Zelle mit dem Schwellwert markieren:" & _ vbLf & _ "Abbrechen verläßt den Vorgang.", "Schwellwert", Type:=8) On Error GoTo 0 If BedFormZelle Is Nothing Then Exit Sub Else MsgBox BedFormZelle.Value End If 'pvTable.RefreshTable 'Pivottabelle aktualisieren For Each pvField In pvTable.DataFields With pvField.DataRange .FormatConditions.Delete 'ggf. vorhandenen bed. Formatierungen löschen .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, _ Formula1:=BedFormZelle.Value With .FormatConditions(1).Font .Bold = True .ColorIndex = 5 End With End With Next End Sub

Hallo Andreas,
Hauptfehler war, dass du in der 2. Bedingung den Parameter "Formula2" setzen wolltest. Muss hier auch Formula1 sein.
Kleiner Fehler war auch noch bei der Berechnung der Adresse für die 2. Bedingungung.
Außerdem sollte man seinen Code etwas übersichtlicher gestaltten, was die Einrückungen für For-Next, With-End With, If-End If Abschnitte angeht. Variablen kann man auch mehrfach neu mit Werten belegen; es ist nicht notwendig für das Setzen der 2. Bedingung eine kompletten Satz Variablen neu anzulegen.
Gruß
Franz


Sub BedingtesFormat_5()
Dim pvField As PivotField
Dim pvTable As PivotTable
Dim BedFormZelle As Range
Dim BedFormadress As String
Set pvTable = ActiveSheet.PivotTables(1)
'# # # Positiven Schwellwert erfassen
On Error Resume Next
Set BedFormZelle = Application.InputBox("Bitte die Zelle mit dem Pos(+)Schwellwert markieren:" _
_
& vbLf & "Abbrechen verläßt den Vorgang.", "Pos. Schwellwert", Type:=8)
On Error GoTo 0
If BedFormZelle Is Nothing Then
Exit Sub
Else
BedFormadress = BedFormZelle.Address
'# # # Bedingte Formatierung positiver Werte durchführen
For Each pvField In pvTable.DataFields
With pvField.DataRange
.FormatConditions.Delete 'ggf. vorhandenen bed. Formatierungen löschen
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, _
Formula1:="=" & BedFormadress
With .FormatConditions(1).Font
.Bold = True
.ColorIndex = 5
End With
End With
Next
'# # # Abfrage, ob negative Werte auch angezeigt werden sollen
If MsgBox("Wollen Sie auch ein Kriterium für Negativwerte erfassen?", vbYesNo, _
"NegativWerte") = vbYes Then '### MsgBoxen kann man auch ohne Variable direkt abfragen
'# # # Negativen Schwellwert erfassen
Set BedFormZelle = Application.InputBox("Bitte die Zelle mit dem Neg(-)Schwellwert  _
markieren:" _
& vbLf & "Abbrechen verläßt den Vorgang.", "Neg. Schwellwert", Type:=8)
On Error GoTo 0
BedFormadress = BedFormZelle.Address
For Each pvField In pvTable.DataFields
With pvField.DataRange
.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
Formula1:="=" & BedFormadress  'auch bei der 2. Bedingung muss hier Formula1  _
stehen!!
With .FormatConditions(2).Font
.Bold = True
.ColorIndex = 10
End With
End With
Next
Else
Exit Sub
End If
End If
End Sub

Hallo Franz,
vielen Dank für Deine Erläuterungen zur bedingten Formatierung. Das in beiden Bedingungen Formula1 stehen muß war mir wirklich neu. Ich weiß nicht mehr genau, warum ich dort eine 2 setzen wollte, ob mir der VBA Rekorder das so ausgegeben hat?!
Ich habe in dieser Sache auch so noch einige Modifikationen vorgenommen. Beispielsweise arbeite ich gerade daran, über die InputBox einen Range zu definieren. Wenn der Range nur eine Zelle hat, dann wird nur eine positive bedingte Formatierung eingestellt. Wenn Zwei Zellen, dann zwei Formatierungen. So spare ich die Yes/ No Message- und die zweite Inputbox. Das sieht bisher ganz gut aus.
Was mir jedoch aufgefallen ist: Da die bedingte Formatierung als Verweis auf eine Zelle angelegt wird, greift sie auch, wenn der Zellwert 0 oder LEER ist. Das ist ja auch korrekt. Optimal wäre es jedoch, wenn die Bedingte Formatierung nicht fix nur auf den Zellwert referenziert, sondern über eine Formel auch noch prüft, ob der Referenzwert ungleich 0 und ungleich LEER ist. Als Trockenübung habe ich das schon realisieren können.

In diesem Fall wird die Zelle F4 dreifach bedingt formatiert: "=UND($G$330;$G$33"""";F4>$G$33)". $G$33 ist wieder die Zelle, die den Referenzwert enthält.
Und hier der erste Versuch, das in eine Form zu überführen, die vom Makro als Formatbedingung verstanden wird:
.FormatConditions.Add Type:=xlExpression, Formula1:= "=UND("&bedformaddress1&""0;""&bedformaddress1&""""";"&pvField&">"&bedformaddress1&")"

Ich hatte auch schon mit AND probiert, aber die Formel muß ja für eine deutsche Excel Applikation lesbar sein. Ich vermute also UND ist schon korrekt. Auch in eine Zelle habe ich es schon eingegeben, um meine Schreibweise mit den Operatorenzeichen zu überprüfen. Aber ich bekomme es leider nicht hin, daß diese Formel über das Makro korrekt in die bedingte Formatierung geschrieben wird.
Geht das überhaupt?
Ich würde mich sehr freuen, Deine Meinung hierzu zu erfahren.
Viele Grüße, Andreas

Beliebteste Forumthreads (12 Monate)

bedingte Formatierung in Pivot Datenfeldern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bedingte Formatierung in Pivot Datenfeldern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread