Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Manuelle Berechnung - aber doch nicht immer !!

Manuelle Berechnung - aber doch nicht immer !!
14.02.2006 13:09:29
Jutta N.
Hallo,
das nervt ! Will ich in einer Tabelle z.B. keine Gitternetzlinien oder Nullen sehen, dann kann ich das in den Optionen abstellen. Steht aber bei irgendeiner Tabelle, die ich von einem Kollegen geöffnet hatte, die Berechnung auf manuell, dann werden alle Mappen dananch auch mit manueller Berechnung geöffnet. Und das merkt man leider nicht so schnell...
Hat da irgendwer eine Lösung für dieses lästige Problem ?
Gruß
Jutta N.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Manuelle Berechnung - aber doch nicht immer !!
14.02.2006 13:20:35
Peter W
Servus,
man könnte das z.B. so lösen das du nachfolgendes Makro in deine Personl.xls einfügst und damit alle 15 Minuten ab Start alle offenen Arbeitsmappen auf die autom. Berechnung überprüfst bzw. veränderst.


Option Explicit
'# Diese Arbeitsmappe der Personl.xls
Private Sub Workbook_Open()
Call basBerechnung
End Sub
'# Modul innerhalb der Personl.xls
Sub basBerechnung()
Dim wbk As Workbook
Dim wks As Worksheet
For Each wbk In Application.Workbooks
    If wbk.Name <> "Personl.xls" Then
        For Each wks In wbk.Worksheets
            wks.Application.Calculation = xlCalculationAutomatic
        Next
    End If
Next
'Einstellung überprüfung alle 15 Minuten
Application.OnTime Now + TimeSerial(0, 15, 0), "basBerechnung"
End Sub
MfG Peter
Anzeige
AW: Manuelle Berechnung - aber doch nicht immer !!
14.02.2006 14:18:14
Jutta N.
Hallo Peter,
Klasse ! Danke !
Was die sich da bei MS wieder dabei gedacht haben.....
Gruß
Jutta

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige