VBA: calculation automatic/manual

Bild

Betrifft: VBA: calculation automatic/manual von: Peter/Berlin
Geschrieben am: 23.02.2005 18:36:43

Hallo VBA-Wissende,
ich habe zwei Workbooks (A und B), die gleichzeitig geöffnet sind und miteinander arbeiten:
Während im Workbook A die Berechnungen mit 'manuell' eingestellt sein sollen, ist für Workbook B die Einstellung 'automatische' Berechnungen vorgesehen.
Da aber mit
Application.Calculation = xlCalculationManual/Automatic
alle geöffneten Workbooks gleichermassen eingestellt werden, ist eine einzelne Einstellung der Workbooks A und B (mir) nicht möglich.

Wie muss die Syntax lauten, um ein einzelnes zweier Workbooks einzustellen?

Gruss aus Berlin
Peter

Bild


Betrifft: AW: VBA: calculation automatic/manual von: ransi
Geschrieben am: 23.02.2005 19:12:27

hallo

bau dir doch eine schleife nach diesem schema.
das könnte gehn.
bei beiden dateien ins workbook_activate:

dim wkb as workbook
dim wks as worksheet
for each wks in thisworkbook
wks.enablecalculation=false
next
select case activeworkbook.name
case is ="A.xls"
for each wks in workbooks("B.xls)
wks.enablecalculation=false
next
case is ="B.xls"
for each wks in workbooks("A.xls)
wks.enablecalculation=false
next
end select


was besseres fällt mir dazu auch nicht ein.
ransi


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz bei steuerelement"