SrollArea

[heli]

Hallo liebes Forum,

hat bitte jemand eine Erklärung dafür, dass die gewünschte ScrollArea bei Sheet "Total" funktioniert, nicht aber bei den anderen Sheets?
Vielen Dank für Eure Hilfe.

Liebe Grüße
Helmut

Code:

For i = 0 To 10
   
   Sheets(arrBetr(i)).Select
   
   Sheets(arrBetr(i)).ScrollArea = "A1:Q80"
   Sheets(arrBetr(i)).Unprotect ("mta")
   
Next i

   Sheets("Total").ScrollArea = "A1:Q80"
   Sheets("Total").Unprotect ("mta")

[atilla]

Hallo Helmut,

es sollte beides gehen.

Was passiert oder passiert nicht bei Dir? Kommt eine Fehlermeldung?

Was steht in arrBetr()

[heli]

Hallo Atilla,

vielen  Dank für Deine Antwort.
Das Array beinhaltet 12 Tabellennamen und ich habe es bei einer Menge anderer Moduls verwendet, daran kann es, glaube ich nicht liegen.
Der Fehler ist, dass die Seite irgendwo einfach blockiert, ich kann aber keine Ursache finden.
Ich habe nun anstatt Q80 die Zelle Q150 verwendet und da funktioniert es. Ich weiß aber nicht wieso.
Es ist mir aber gleich, da ich eigentlich den Bereich in erster Linie in der horizontalen Richtung begrenzen wollte.
Nochmals Danke für Deine Mühe.

Liebe Grüße
Helmut

[snb]

Sollte funktionieren:

Code:

For each it in sheets
  it.ScrollArea = "A1:Q80"
Next

[heli]

Hallo,

danke für Deine Antwort. leider funktioniert es damit auch nicht.

Liebe Grüße
Helmut

[Rabe]

Hi Helmut,

leider funktioniert es damit auch nicht.

was bedeutet das?