bin hier neu im Forum und habe gleich ein Frage zu einer bestehenden VBA-Lösung:
Das Makro funktioniert super, solange der in B3 geschriebene Wert in der Pivot-Tabelle (Feld "No_2") gefunden wird. Ist jedoch der Wert nicht vorhanden, bricht das Makro ab. Hier muss sicherlich noch eine IF-Schleife rein, bekomme ich aber nicht hin.
Für schnelle Hilfe wäre ich sehr dankbar - Hans-Jürgen Ruf
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B3").Address Then
With Sheets("Verkäufe - Mengen")
.PivotTables("PivotTable1").PivotFields("No_2").ClearAllFilters
.PivotTables("PivotTable1").PivotFields("No_2").CurrentPage = Sheets("Übersicht - Neu"). _
Range("B3").Text
End With
End If
End Sub