ScrollColumn funktioniert nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re:

27.04.2003 11:19:22

Ramses

Re:

27.04.2003 12:06:16

Michael_E

Re:

27.04.2003 12:47:17

Ramses

DANKE hab es endlich geschafft

27.04.2003 13:28:27

Michael_E

Hallo Michael,

da stimmt einiges nicht.

1.)
Grundsätzlich solltest du dir angewöhnen mit

Option Explicit

in der ersten Zeile deines Codes zu arbeiten.
Dann würde dir auffallen dass "ScrollArea = "" " lediglich als normale Variable angesprochen wird, aber nicht dass die Area aufgehoben wird.

2.
Abhängig davon wo du den Code auslöst ist er nicht lauffähig.
Wenn du den Code in Spalte B auslöst, kommt ein Laufzeitfehler weil bei "ActiveCell.Offset(3000, -3)" die "-3" auf die Spalte 0 verweist die nicht existiert.

3.
Du wählst bereits eine Zelle 3000 Zeilen tiefer aus, und definierst dann eine ScrollArea "..(ActiveCell.Row + 3000.."
Da ist bestimmt nicht nur eine Zeile aktiv ;-)

4.
In Zeile 4 wählst du eine Zelle "Cells(ActiveCell.Offset(3000, -3).Range("A1")).Select" 3000 zeilen tiefer aus, in der viertletzen Zeile "ActiveCell.Offset(3000, 1).Select" nochmals. Du bist jetzt eigentlich 6000 zeilen tiefer.

5.
Warum adressierst du die Zelle nicht direkt sondern über diese riesigen Offset-Umwege.
Du weisst genau, wohin du springen musst "...damit das weitere PRG funktioniert...", dann kannst du die Zeile auch direkt adressieren und es ist wesentich einfacher.

Gruss Rainer

Hallo Michael,

ich denke du hast in deinem Makro ein strategischen Denkfehler:
Angenommen deine aktive Zeile = 15
Die Kleinste Spalte = 19

Zelle = Cells(15,19) .... OK ?!

Cells(ActiveCell.Row + 3000, ActiveCell.Column + 1).Value = ActiveCell.Offset(0, -2).Text
Damit schreibst den Wert zwei Zellen links von der aktiven Zelle
in eine Zelle 3000 Zeilen tiefer und ein Spalte rechts davon

ActiveWindow.ScrollColumn = (ActiveCell.Column + 1)
Damit scrollst du eine Spoalte nach rechts

ActiveWindow.ScrollRow = (ActiveCell.Row + 3000)
Damit scrollst du 3000 Zeilen tiefer

ActiveSheet.ScrollArea = Range(Cells(ActiveCell.Row + 3000, ActiveCell.Column + 1), Cells(ActiveCell.Row - 25, ActiveCell.Column + 6)).Address

Hier ist vermutlich dein Fehler:
Die aktive Zelle ist immer noch Cells(15,19) !!!
Davon ausgehend weisst du die Scroll Area zu (ActiveCell.Row + 3000) und zusätzlich (ActiveCell.Row - 25,.
Wenn deine Zelle aber, wie im Beispiel, in Zeile 19 ist hast du ein Problem: 19 - 25 = -5 !!!

Cells(ActiveCell.Offset(3000, -3).Range("A1")).Select
Dürfte nix bringen, weil die Zelle ausserhalb deiner Scrollarea liegt

Sollte ich was nicht verstanden haben .... ;-)

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread