Berechnen automatisch/ manuell

Bild

Betrifft: Berechnen automatisch/ manuell von: Oliver Pohl
Geschrieben am: 08.02.2005 16:43:09

Hallo

ich möchte eine benutzerdefinierte Schaltfläche bauen, die zwischen folgenden Modi hin- und herschaltet:

Berechnen automatisch

Berechnen manuell

Wie kann man das machen?

Bild


Betrifft: AW: Berechnen automatisch/ manuell von: Christian
Geschrieben am: 08.02.2005 16:49:32

Hallo Oliver,

Makrorekorder starten, dann Extras\Optionen\Berechnung auf manuell, OK, Makrorekorder beenden; Schaltfläche aus Symbolleiste "Formular" ins Blatt einfügen, Makro zuweisen - fertig.

Zweite Schaltfläche und zweites Makro entsprechend aufbauen.

Gruß Christian


Bild


Betrifft: AW: Berechnen automatisch/ manuell von: Oliver Pohl
Geschrieben am: 08.02.2005 16:55:52

Ich würde das aber gerne mit einer Schaltfläche verbinden.

Also wenn der Status Manuell ist, soll er auf automatisch stellen, sonst auf manuell.

Ich muss also den Status, der derzeit vorherrscht, auslesen und dann entsprechend verändern.

Ich habe das mal mit Gitternetzlinien an/aus gemacht. Das sah dann so aus:

Sub GitternetzlinienWechsel()
    'Liest den Wert des Eigenschaft "ActiveWindow.Displaygridlines aus
    'und speichert den Wert in der Variablen "Neugitter"
    neugitter = ActiveWindow.DisplayGridlines
    
    'Setzt mit dem Schlüsselwort NOT die Eigenschaft in die für NEUGITTER gültige
    'gegenteilige Stellung
    ActiveWindow.DisplayGridlines = Not neugitter
End Sub


Und so würde ich das gerne auch mal mit der Berechnerei machen!°


Bild


Betrifft: AW: Berechnen automatisch/ manuell von: Michl
Geschrieben am: 08.02.2005 16:53:20

Sub Wechseln_aut_man()
If XXXXXXX.Value = Enabled Then
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    
Else
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    
End If
    
End Sub



Bild


Betrifft: AW: Berechnen automatisch/ manuell von: Ulf
Geschrieben am: 08.02.2005 17:05:44

Sub umschalten()
With Application
  If .Calculation = xlManual Then
     .Calculation = xlAutomatic
  Else
     .Calculation = xlManual
  End If
End With
End Sub


Ulf


Bild


Betrifft: AW: Berechnen automatisch/ manuell von: Oliver Pohl
Geschrieben am: 08.02.2005 17:15:38

Super hat toll geklappt! Danke vielmals


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Berechnen automatisch/ manuell"