Ich habe Schwierigkeiten, einen Analysis View in SAP Analysis for Microsoft Office per VBA zu finden. Ich würde gerne per VBA ermitteln welche Dimensionen aktuell auf dem View gefiltert wurden.

Ich verwende die folgende Zeile, um den Analysis View zu finden:

Sub Test()

Set analysisView = FindAnalysisView(ActiveSheet)

end Sub

Function FindAnalysisView(ws As Worksheet) As Object

'Deklaration der benötigten Objekte

Dim View As Object 'Analysis View-Objekt

Dim AV As Object 'Analysis Views-Objekt

Dim Pane As Object 'Pane-Objekt

'Objekte setzen

Set AV = ActiveWorkbook.Model.AnalysisViews

Set Pane = ws.ListObjects(1).Parent

'Schleife durchlaufen und den ersten Analysis View im Worksheet finden

For Each View In AV

If View.Pane Is Pane Then

Set FindAnalysisView = View

Exit Function 'wenn der erste View gefunden wurde, beende die Schleife

End If

Next View

'wenn kein View gefunden wurde, gib eine Fehlermeldung aus

If FindAnalysisView Is Nothing Then

MsgBox "Es wurde kein SAP Analysis View im angegebenen Worksheet gefunden.", vbExclamation, "Fehler"

End If

End Function

Aber ich erhalte immer den Fehler 438 ("Objekt unterstützt diese Eigenschaft oder Methode nicht") in der Zeile set Pane. Ich habe auch versucht, den Analysis View direkt per VBA zu finden, indem ich die ActiveWorkbook.Model.AnalysisViews-Eigenschaft verwendet habe, aber auch das hat nicht funktioniert.

Hat jemand Erfahrung damit, einen Analysis View per VBA zu finden? Gibt es eine andere Methode, die ich verwenden sollte?

Vielen Dank im Voraus für Ihre Hilfe!

Beste Grüße,

Timo