Ich möchte folgend Funktion mit einem Button bzw.klick erledigen.
Ich weiss nicht wie das geht? Wer kann helfen!!!!!!
Sub Aktualisieren ()
Sheets("PIVO_Dispo").Select
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Sheets("Einteil1").Select
Range("M1").Select
End Sub
Danke Gruß Achim