ich bin neu in der VBA-Welt und hoffe, ihr könnt mir weiterhelfen.
Ich habe den folgenden Code benutzt, um eine Pivot-Tabelle aus einer bestimmten Zelle zu filtern.
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Salesanalyse").PivotTables("PivotTable3")
Set xPFile = xPTable.PivotFields("Artikelnummer")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
So weit, so gut.Jetzt möchte ich eine zweite Pivot-Tabelle (von dem gleichen Arbeitsblatt) aus der gleichen Zelle steuern bzw. filtrieren. Als komplett Anfänger habe ich versucht den Code zu kopieren und den Namen von der Pivot-Tabelle zu ändern. Natürlich hat es nicht geklappt: ich bekomme den Fehlermeldung 'Mehrdeutiger Name: Worksheet_Change'.
Kann mir jemand helfen?
Viele Grüße,
Alessio