VBA: Alle Pivots aktualisieren
17.10.2017 10:23:17
schen4ik
Dieser Code zu der mir der User "onur" super geholfen hat, möchte ich gerne erweitern.
Ich möchte, dass alle Pivots automatisch in dem Tabellenblatt aktualisiert werden. Unabhängig ob die Angaben in der Spalte 1 und den Zeilen 1 - 24 gemacht werden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt As PivotTable
Dim Zeile, Spalte
Zeile = Target.Row
Spalte = Target.Column
If Zeile > 24 Then Exit Sub
If Spalte > 1 Then Exit Sub
If ActiveSheet.Range("A17") = ActiveSheet.Range("A21") Then
If ActiveSheet.Range("A18") = ActiveSheet.Range("A23") Then Call _
Prod_KW_pro_Betrachtung
If ActiveSheet.Range("A18") = ActiveSheet.Range("A24") Then Call _
Prod_KW_kumuliert_Betrachtung
End If
If ActiveSheet.Range("A17") = ActiveSheet.Range("A22") Then
If ActiveSheet.Range("A18") = ActiveSheet.Range("A23") Then Call _
Prod_Monat_pro_Betrachtung
If ActiveSheet.Range("A18") = ActiveSheet.Range("A24") Then Call _
Prod_Monat_kumiliert_Betrachtung
End If
End Sub
Leider komme ich mit der Antwort vom Franz auf meine vorherige Anfrage von gestern nicht weiter.
https://www.herber.de/forum/messages/1586218.html
Vorab vielen Dank für die Tipps und Unterstützung.
Grüße
Schen4ik
Anzeige