ich habe ein tool entwickelt in dem bestimmte tabellenblätter nicht automatisch neu berechnet werden können. grund hierfür ist, dass die performancelast sehr hoch ist und ich die berechnung dieser tabellenblätter separat auslösen möchte.
hierfür habe ich folgenden code in der arbeitsmappe hinterlegt
Private Sub Workbook_Open()
Me.Worksheets("Tabelle1").EnableCalculation = False
Me.Worksheets("Tabelle2").EnableCalculation = False
Me.Worksheets("Tabelle3").EnableCalculation = False
End Sub
das funktioniert soweit auch recht gut. als nächstes habe ich herausgefunden, wie ich diese berechnung der tabellenblätter jeweils manuell per Click durchführen kann. dies erfolgt über folgendem code in den jeweiligen tabellenblättern:
Private Sub CommandButton1_Click()
Me.EnableCalculation = True
Do
DoEvents
Loop Until Application.CalculationState = xlDone
Me.EnableCalculation = False
End Sub
Leider muss ich dadurch jedes Tabellenblatt einzeln anklicken um dieses Befehl ausführen zu lassen.
Gibt es eine Möglichkeit die jeweiligen Command Buttons über ein Makro in einem separaten Tabellenblatt zu aktivieren?
Ich hoffe mir kann jemand helfen....bin schon sehr verzweifelt. Versucht es bitte idiotensicher zu erklären, da ich mit VBA leider bisher nichts zutun habe und nun in der zwangslage bin mir etwas zu basteln.
Vielen Dank schon mal im Voraus!