Makro um Command Button auszuführen

Hallo Excel-Profis,
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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Me.Worksheets("Tabelle1").EnableCalculation = True Do DoEvents Loop Until Application.CalculationState = xlDone Me.Worksheets("Tabelle1").EnableCalculation = False End Sub

Hallo Lutz,
ich würde den Code nicht in ein Klassenmodul eines Tabellenblattes platzieren, sondern in ein allgemeines Modul.
Der Code könnte dann so aussehen :

VBA-Code:

Sub KalkulationAus()

    'Deaktiviert die Kalkulation für diese 4 Blätter :

    Worksheets("Tabelle1").EnableCalculation = False

    Worksheets("Tabelle2").EnableCalculation = False

    Worksheets("Tabelle3").EnableCalculation = False

    Worksheets("Tabelle4").EnableCalculation = False

End Sub

Sub KalkTemp()

    'Berechnet Tabellenblätter gezielt

    Dim ws As Long

    Dim arBerechnung

    arBerechnung = Array("Tabelle1", "Tabelle3") 'Die Namen der Tabellenblätter

    For ws = 0 To UBound(arBerechnung)

        With Worksheets(arBerechnung(ws))

            .EnableCalculation = True

            .Calculate

            .EnableCalculation = True

        End With

    Next

End Sub

Im 2.Makro werden nur die Tabellenblätter berechnet, die im ARRAY() aufgelistet sind !

Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

Makro um Command Button auszuführen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro um Command Button auszuführen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread