Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Berechnung ausschalten

Forumthread: Automatische Berechnung ausschalten

Automatische Berechnung ausschalten
P.Mackes
Hallo,
ich habe mein Problem bereits hier gepostet: http://www.office-loesung.de/ftopic323793_0_0_asc.php
Leider habe ich keine zufriedenstellende Antwort erhalten.
Ich möchte die automatische Berechnung in Excel automatisch abschalten lassen.
Das funktuioniert mit folgendem Code nur, sofern ich Excel über das Startmenü oder ähnlichers öffne.
Der Code befindet sich in dem ThisWorkbook Module der PERSONAL.XLS. 
Private Sub workbook_open()
Application.Calculation = xlManual
End Sub
öffne ich Excel über eine Datei (irgendein gespeichertes workbook), dann scheitert der Code mit der Nachricht, dass die Method Calculation für das Object Calculation failed.
Ich habe sowohl workbook_open als auch auto_open, private und public subs, application event code, xlManual als auch xlCalculationManual und andere Sachen versucht.
Leider bekomme ich das Problem nicht in den Griff.
Hat jemand eine Idee wie das Problem zu lösen ist?
Gruß Peter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatische Berechnung ausschalten
20.07.2009 09:35:14
Hajo_Zi
Hallo Peter,
zum ausführen von Code aus der Personl.xls in jeder Datei stand vor kurzm folgendes im Forum.
Open jede Datei
https://www.herber.de/forum/archiv/1084to1088/t1085044.htm
füge den folgenden Code in deine PERSONL.xls ein:
in ein Klassenmodul: clsEvents 

Option Explicit
Public WithEvents app As Excel.Application
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
MsgBox "Sie haben das Workbook " & Wb.Name & " geöffnet!"
End Sub
' in allgemeines Modul: Modul1
Option Explicit
Public clsObject As New clsEvents
' in das Modul: DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Set clsObject.app = Excel.Application
End Sub

Von Kawensmann

Anzeige
AW: Automatische Berechnung ausschalten
20.07.2009 10:30:04
P.Mackes
Hllo Hajo,
ich habe den Code soweit umgesetzt.
Im Class Module clsEvents habe ich die Message Box durch
With app
.Calculation = xlManual
.CalculateBeforeSave = False
End With
ausgetauscht.
Leider erhalte ich beim öffnen einer beliebigen *.xls nach wie vor denselben Fehler.
Kannst du mir noch etwas auf die Sprünge helfen?
Gruß
Anzeige
AW: Automatische Berechnung ausschalten
20.07.2009 10:37:55
Hajo_Zi
Hallo Peter,
ich sehe Deinen Code nicht. Darum sagt mir app auch nichts. ich hätte da WB geschrieben.
Der Code war nicht von mir darum kann ich da auch wenig helfen.
Gruß Hajo
AW: Automatische Berechnung ausschalten
20.07.2009 10:50:07
P.Mackes
Okay.
Ich habe das mal mit dem Code von Cardexperte kombiniert.
Ich verstehe es zwar nicht wirklich...aber es funktioniert...^^
mein ClassModule clsEvents sieht jetzt wie folgt aus
Public WithEvents app As Excel.Application
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next
If errorlevel  0 Then Exit Sub
With Application
.Calculation = xlManual
.CalculateBeforeSave = False
End With
End Sub
(ohne das Option Explicit)
auf jeden Danke an euch beide
Anzeige
AW: Automatische Berechnung ausschalten
20.07.2009 09:41:37
Cardexperte
Hallo,
hast du schon einmal versucht eine Fehlerroutine einzubauen, da ja die autoberechnung ausgeschaltet ist kommt bei erneuter Ausschaltung der Fehler:

Private Sub workbook_open()
on error resume next
if errorlevel  0 then exit sub
Application.Calculation = xlManual
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

automatische Zellberechnung deaktivieren
Günther

Hallo zusammen,
ich habe das Problem, dass sich in einer EXCEL-Datei mit vielen benutzerdefinierten Funktionen die automatische Zellberechnung nicht unterdrücken lässt. Selbst wenn man diese Option auf 'Manuell' setzt (in Optionen oder per VB) löst immer noch jede! Änderung eines Zellwertes...
29.09.2009 09:49:10
Thread-ID: 1106135
3 Beiträge
Anzeige
Berechnung ausschalten mit VBA..
Nik

Hallo zusammen,
ich habe ein etwas umfangreicheres Excel-File mit Datenbankabfragen, das recht rechenintensiv ist. Ich habe nun ein Grafiksheet in dem nicht ganz soviel gerechnet wird. Meine Idee war ein Button zu installieren mit dem ich mittels VBA nur in diesem Grafiksheet die automatisc...
27.11.2012 15:20:18
Thread-ID: 1288319
4 Beiträge
Anzeige
Automatische Berechnung ausschalten geht nicht
Marko

Hallo liebe Leute,
ich versuche verzweifelt, die automatische Berechnung der Tabelle z.B. perPrivate Sub UserForm_Initialize()
Application.Calculation = xlCalculationManual
End Subabzuschalten, und sie nach drücken des Verlassenknopfes wieder anzuschalten. Leider bekomme ich immer d...
04.04.2003 10:15:50
Thread-ID: 240237
8 Beiträge
Automatische Berechnung ausschalten
Oliver Giertz

Hallo,
wie kann man bei einem Start eines Makros die Automatische Berechnung ausschalten und nach beendigung des selben Makros die Berechnung wieder einschalten?

Im Archiv habe ich nichts gefunden und die Recherche blieb erfolglos.


Ich hoffe Ihr könnt mir helfen

G...
16.07.2003 11:43:58
Thread-ID: 281620
3 Beiträge
automatische Berechnung ausschalten
Richard

Hallo zusammen,
wie kann ich die automatische Berechnung eines EINZELNEN Tabellenblatts aus- und wieder einschalten?
Der Rest des Datei soll automatisch berechnet werden (z.Bsp. Autofilter-Werte).
Danke Richard
07.03.2005 11:20:44
Thread-ID: 581244
2 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
automatische Zellberechnung deaktivieren
Günther

Hallo zusammen,
ich habe das Problem, dass sich in einer EXCEL-Datei mit vielen benutzerdefinierten Funktionen die automatische Zellberechnung nicht unterdrücken lässt. Selbst wenn man diese Option auf 'Manuell' setzt (in Optionen oder per VB) löst immer noch jede! Änderung eines Zellwertes...
29.09.2009 09:49:10
Thread-ID: 1106135
3 Beiträge
Anzeige
Formel automatisch berechnen Mappe nicht
Joni

Hi,
gibt es eine Möglichkeit die Mappe auf händisch berechnen zu stellen, 2 Zellen aber trotzdem automatisch berechnen zu lassen?
Danke für euer Hilfe.
Gruß Joni
26.09.2010 21:09:33
Thread-ID: 1179483
5 Beiträge
Automatische Berechnung ausschalten geht nicht
Marko

Hallo liebe Leute,
ich versuche verzweifelt, die automatische Berechnung der Tabelle z.B. perPrivate Sub UserForm_Initialize()
Application.Calculation = xlCalculationManual
End Subabzuschalten, und sie nach drücken des Verlassenknopfes wieder anzuschalten. Leider bekomme ich immer d...
04.04.2003 10:15:50
Thread-ID: 240237
8 Beiträge
Automatische Berechnung ausschalten
Oliver Giertz

Hallo,
wie kann man bei einem Start eines Makros die Automatische Berechnung ausschalten und nach beendigung des selben Makros die Berechnung wieder einschalten?

Im Archiv habe ich nichts gefunden und die Recherche blieb erfolglos.


Ich hoffe Ihr könnt mir helfen

G...
16.07.2003 11:43:58
Thread-ID: 281620
3 Beiträge
Automatische Zeilenerweiterung funktioniert nicht!
Chris
Guten Morgen,
ich habe ein Problem!
Ich habe eine Tabelle in einem Arbeitsblatt, welches gesperrt ist, wenn in der ersten Spalte die Zeilen nicht mehr ausreichen, wird automatisch eine neue Zeile hinzugefügt!
Mein Makro funktioniert soweit einwandfrei, bis auf dass bei der neu eingefügte...
22.08.2003 09:52:34
Thread-ID: 298514
2 Beiträge
Automatische Datumsvergabe funktioniert nicht
Juie
Hallo Excelianer,

ich sollte in einer Datei immer das letzte Speicherdatum haben.
Dafür habe ich im Objekt "DieseArbeitsmappe" folgenden Code eingefügt.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ThisWorkbook.Sheets(8).Range("P1").Value = Now...
10.11.2003 15:17:33
Thread-ID: 335922
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige