in meiner Tabelle habe ich 2 Buttons, über welche die Werte in bestimmte Zellen übertragen werden. Durch diese Werte, als Parameter, soll die jeweilige Pivottabelle aktualisiert werden.
Leider bekomme beim folgendem Code einige Fehlermeldungen und die Datei stürzt ab. Ich hoffe Ihr könnt mir dabei helfen.
https://www.herber.de/bbs/user/116990.xlsm
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("B5") = ActiveSheet.Range("A21") And ActiveSheet.Range("B6") = ActiveSheet. _
_
_
Range("A25") Then
Call KW_kumuliert_Betrachtung
Else
If ActiveSheet.Range("B5") = ActiveSheet.Range("A21") And ActiveSheet.Range("B6") = ActiveSheet. _
_
_
Range("A24") Then
Call KW_pro_Betrachtung
Else
If ActiveSheet.Range("B5") = ActiveSheet.Range("A22") And ActiveSheet.Range("B6") = ActiveSheet. _
_
_
Range("A25") Then
Call Monat_kumiliert_Betrachtung
Else
If ActiveSheet.Range("B5") = ActiveSheet.Range("A22") And ActiveSheet.Range("B6") = ActiveSheet. _
_
_
Range("A24") Then
Call Monat_pro_Betrachtung
End If
End If
End If
End If
End Sub
Vorab vielen Dank für die Unterstützung.
Grüße
Schen4ik