automatisch berechnen
Christian
Hallo Excel fachmänner und frauen
ich habe von Euch schon Lösungsansätze bekommen die aber irgendwie nicht funktionieren.
Ich möchte alle Datein die im Verzeichnis F:\AA\.... stehen (ca 2000)
wieder so haben, daß EXCEL sie bei einer Bearbeitung automatisch neu berechnet.
dies ist bei der letzten Bearbeitung verloren gegangen.(siehe unten)
Hi,
vielleicht hast du das bei Sepp übersehen ;-)
Gruß
robert
Public Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long
With Application
.ScreenUpdating = Modus
.EnableEvents = Modus
.DisplayAlerts = Modus
.EnableCancelKey = IIf(Modus, 1, 0)
If Not Modus Then lngCalc = .Calculation
If Modus And lngCalc = 0 Then lngCalc = -4105
.Calculation = IIf(Modus, lngCalc, -4135)
.Cursor = IIf(Modus, -4143, 2)
End With
End Sub
Anzeige