If Schleife mit PivotItems
08.11.2018 09:53:17
Zehbart
ich hänge hier an einer Stelle fest - vielleicht kann mir ja jemand aushelfen.
Folgender Ansatz, um einen Befehl auszuführen falls ein PivotItem einen bestimmten Wert hat:
With Worksheets("rohdaten").PivotTables("pivottable3").PivotFields("wgrup")
For i = 1 To .PivotItems.Count
If .PivotItems(i).Name >= 301 And .PivotItems(i).Name ....
Dieser Ansatz funktioniert einwandfrei. Nun möchte ich allerdings die Werte 301 und 398 durch einen Zellenbezug ersetzen:
With Worksheets("rohdaten").PivotTables("pivottable3").PivotFields("wgrup")
For i = 1 To .PivotItems.Count
If .PivotItems(i).Name >= Sheets("warengruppen").Cells(6, 2) _
And .PivotItems(i).Name ....
Hier bekomme ich immer wieder eine Fehlermeldung. Ich habe es schon mit .cells(6,2).value oder value2 versucht, ohne erfolg. Auch eine Umwandlung in einen Integer Wert mit int(Sheets("warengruppen").Cells(6, 3).value) brachte eine Fehlermeldung.
Sieht von euch jemand meinen Fehler?
Grüße
Zehbart