Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktion beim Aktivieren eines Sheets durchführen

Aktion beim Aktivieren eines Sheets durchführen
07.02.2006 16:48:48
Peter
Hallo
Ich möchte in einer Arbeitsmappe beim Anwählen irgend eines Sheets immer sicherstellen, dass "BERECHNEN" nicht auf manuell gestellt ist.
Ich nehme an, dass ich dazu
?
For Each Sh In Worksheets
Sh.Activate
With Application
.Calculation = xlAutomatic
End With
End Sub
in DieseArbeitsmappe schreibe.
Was muss ich bei ? schreiben?
Private Sub ... ?
Danke für jeden Hinweis.
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Aktion beim Aktivieren eines Sheets durchführe
07.02.2006 16:53:59
Peter
Servus,
kommt in das Klassenmodul DieseArbeitsmappe.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application
.Calculation = xlCalculationAutomatic
End With
End Sub

MfG Peter
AW: Aktion beim Aktivieren eines Sheets durchführe
07.02.2006 16:59:28
frutigen
Hallo Peter
Vielen Dank, funktioniert einwandfrei.
Freundlicher Gruss, Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige