Daten aktualisieren auf Knopfdruck

[canislupusminor]

Hallo zusammen,

ich habe einen Report, in dem in mehreren Tabellenblättern Rohdaten aufbereitet werden. In einem Tabellenblatt, werden die relevantesten Daten aus verschiedenen Quellen zusammengeführt.

Ich möchte, dass dieses Tabellenblatt - anders als alle anderen - nicht automatisch aktualisiert wird.

Dazu habe ich per Code (s. u.) die automatische Berechnung der Formeln deaktiviert .

Private Sub Workbook_Open()
    Sheets("Revision Overview").EnableCalculation = False
End Sub


Neben meiner Tabelle befindet sich ein Button, der mit einem Macro verknüpft ist. Das Macro aktiviert die automatische Berechnung und deaktiviert sie anschließend wieder - theoretisch.

Leider ist es nicht so, dass die automatische Formelberechnung  für dieses Blatt ausgeschaltet ist, wodurch alle Daten automatisch aktualisiert werden und demnach mein Macro nicht greift.

An welcher Stelle habe ich etwas falsch gemacht bzw. braucht ihr weitere Informationen oder ggf. eine Datei?


Danke für die Unterstützung,

Canis

[d'r Bastler]

Moin Canis,

Wenn ich folgenden Code direkt in die angesprochene Tabelle setze, funktioniert es.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.EnableCalculation = False
End Sub

Das Me. kann man weglassen.

---

Wenn Du das Folgende dann noch in Dein Button-Makro/allg.Modul schreibst, wird die Berechnung nach ihrer Ausführung sofort wieder deaktiviert.

Code:

Sub ClickEvent()
Sheets("Tabelle1").EnableCalculation = True
    DoEvents
Sheets("Tabelle1").EnableCalculation = False
End Sub

Grüße

[canislupusminor]

Moin Canis,

Wenn ich folgenden Code direkt in die angesprochene Tabelle setze, funktioniert es.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.EnableCalculation = False
End Sub

Das Me. kann man weglassen.

---

Wenn Du das Folgende dann noch in Dein Button-Makro/allg.Modul schreibst, wird die Berechnung nach ihrer Ausführung sofort wieder deaktiviert.

Code:

Sub ClickEvent()
Sheets("Tabelle1").EnableCalculation = True
    DoEvents
Sheets("Tabelle1").EnableCalculation = False
End Sub

Grüße

Klappt perfekt! Vielen Dank dir!