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"