Makro durch Button starten
Tobias
Ich habe ein Problem an dem ich mir die Zähne ausbeisse und einfach nicht verstehen kann warum das nicht funktioniert und würde mich sehr freuen wenn mir hier jemand helfen kann.
Ich habe ein Makro zusammengestellt, dass Werte löscht und Pivots auffrischt. Wenn ich das Makro so ausführe funktioniert es wunderbar, verknüpfe ich es jedoch mit einem commandbutton kommt eine Fehlermeldung. Habe es probiert mit:
Private Sub Zurücksetzen_Click()
Call Delete
MsgBox "Alle Tabellen zurückgesetzt", vbCritical
End Sub
und auch mit dem Quellcode anstatt des "Call delete" hier der code:
Public Sub Delete()
'Löschen der Daten und aktualisieren der Tabellen
Sheets("DATEN").Activate
Sheets("DATEN").Select
Columns("A:M").ClearContents
'Löscht den Inhalt der Spalten A-M
Range("N3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'Selektiert SVERWEIS Spalta von Reihe 3 bis Ende und löscht diesen Bereich
Sheets("STEUERUNG").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("DATEN").Select
Range("A1").Select
ActiveSheet.Paste
'Kopieren der Tabellenstruktur von Steuerung nach Daten
Sheets("STEUERUNG").Activate
Sheets("STEUERUNG").Select
Range("B15").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
'Aktualisieren der Pivot-Tabelle in Steuerung
Sheets("AUSWERTUNG").Activate
Sheets("AUSWERTUNG").Select
Range("B13").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
'Aktualisieren der Pivot-Tabelle in Auswertung
End Sub
Für eure Hilfe Danke ich im voraus
LG Tobias
Anzeige