nochmal zum Scrollbereich...
31.10.2017 18:49:43
EasyD
ich hatte letztens hier eine ganz ähnliche Frage, die möchte ich nochmal erweitern:
Ich habe auf einem Blatt 3 Bereiche, die ich bearbeiten möchte. Dazu verstelle ich per Button-Klick den Scrollbereich wie folgt:
Sub Schaltfläche_1PJ_Click()
'Bereich1
ActiveSheet.ScrollArea = "A1:T290"
With ActiveWindow
.ScrollColumn = 1
.ScrollRow = 1
End With
End Sub
Sub Schaltfläche_2PJ_Click()
'Bereich2
ActiveSheet.ScrollArea = "AA1:AT290"
With ActiveWindow
.ScrollColumn = 46
.ScrollRow = 1
End With
End Sub
Sub Schaltfläche_3PJ_Click()
'Bereich3
ActiveSheet.ScrollArea = "BA1:BT290"
With ActiveWindow
.ScrollColumn = 72
.ScrollRow = 1
End With
End Sub
Das Problem - ich möchte natürlich auch den gesamten Bereich tatsächlich jeweils im Fenster sichtbar haben. Deshalb scrolle ich auch am Ende jeweils in eine bestimmte Spalte (zumindest ist das der Plan). Im Bereich 2 ist das die am weitesten rechts gelegene Spalte AT (Spaltennummer 46). Das funktioniert leider nicht.
Die Scrollbereiche werden korrekt eingestellt. Drückt man aber den Button für Bereich2 hat man immmernoch den Bereich 1 auf der linken Seite sichtbar und nur die erste Spalte des Bereich2 auf der linken Seite. Entsprechend für Bereich3...
was mache ich falsch?