Hallo liebe Mitstreiter,
ich habe folgendes Problem in einer Pivot Tabelle.
Ich möchte ein PivotField (Woche) über einen SpinButton steuern. Hierzu frage ich den aktuellen Wert über .PivotFields("Woche").CurrentPage.Name ab. Aber welche Nummer .PivotItems(?) hat dieser Wert ?
Aktuell behelfe ich mir mit einer Schleife, um an diesen Wert zu kommen..
In diesem Falle wurde der Button "down" gedrückt.
<pre>Private Sub Woche_SpinDown()
Dim lngEinträge As Long
Dim lngIndex As Long
Dim pf As PivotField
Set pf = PivotReport.PivotFields("Woche")
lngEinträge = pf.PivotItems.Count
For lngIndex = 1 To lngEinträge
If pf.CurrentPage = "(All)" Then
pf.CurrentPage = pf.PivotItems(lngEinträge).Name
Exit For
ElseIf pf.PivotItems(lngIndex).Name = pf.CurrentPage And lngIndex > 1 Then
pf.CurrentPage = pf.PivotItems(lngIndex - 1).Name
Exit For
End If
Next
End Sub</pre>
Gibt es einen kürzeren & schnelleren Weg ? Sowas wie .CurrentPage.index ?
Lieben Dank
Bernd