Makro funktioniert nicht mit Datumformat
23.04.2005 21:13:05
Korl
ich trete schon den ganzen Tag auf der Stelle. Vielleicht kann mir doch jemand helfen?
Ich habe eine Pivottabelle in der ich das Seitenfeld per Makro ansteuern möchte.
Das nachfolgende Makro funktioniert soweit auch. In diesem Fall geht es um Zahlen die angezeigt werden sollen.
Nun heißt aber mein Seitenfeld "Datum" in dem auch Datumswerte angezeigt werden sollen.
In diesem Fall funktioniert es nicht. Obwohl sich das Datum aus Tabelle "Eingabe" in der Liste des Seitenfeldes befindet, sagt mir die MsgBox "Der Suchbegriff ist nicht in der Liste."
Sub EinstellenSeitenfeld()
Dim f As PivotField
Dim pItem As PivotItem
Dim j As String
j = Worksheets("Eingabe").Range("B7").Value
Set f = Worksheets("Auswertung").PivotTables("PivotTable1").PivotFields("Länge")
With f
For Each pItem In f.PivotItems
If pItem.Caption = j Then
.CurrentPage = j
Call PivotSeitenfeldSetzen
Exit Sub
End If
Next
End With
MsgBox "Der Suchbegriff ist nicht in der Liste."
End Sub
Sub PivotSeitenfeldSetzen()
Dim Pivot As PivotTable
Set Pivot1 = Worksheets("Auswertung").PivotTables("PivotTable1")
With Pivot1
.PivotFields("Länge").CurrentPage = Worksheets("Eingabe").Range("B7").Value
End With
End Sub
Kann mir jemand helfen?
Gruß Korl