ActivePane

Computer: Software & Programmierung Office Software
1

Hallo mal wieder,

ich plage mich damit herum, einen Fensterausschnitt am Ende einer Makro-Bearbeitung wieder so herzustellen, wie er am Beginn war.
Dazu merke ich mir mit

Set aktuelle\_pane = ActiveWindow.ActivePane

den Anfangszustand, will ihn dann am Ende mit

ActiveWindow.aktuelle\_pane.Activate

wieder herstellen.
Das geht schief. Das ActiveWindow ist am Ende dasselbe wie zu Beginn.

Ich habe die Hilfe durchsucht, werde aber nicht schlau. Muss doch eigentlich gaaaaanz einfach sein!

Danke
Laika

2

Hallo Laika,

ActivePane ist laut VBA Hilfe schreibeschützt. Das wird also nicht gehen.
Versuchs mal so:

spalte = ActiveWindow.ActivePane.ScrollColumn
zeile = ActiveWindow.ActivePane.ScrollRow
' hier Fenstermanipulationen, und dann:
ActiveWindow.ActivePane.ScrollColumn = spalte
ActiveWindow.ActivePane.ScrollRow = zeile

Gruß, Andreas

3

ich plage mich damit herum, einen Fensterausschnitt am Ende
einer Makro-Bearbeitung wieder so herzustellen, wie er am
Beginn war.
Ich habe die Hilfe durchsucht, werde aber nicht schlau. Muss
doch eigentlich gaaaaanz einfach sein!

Hallo Laika,

vllt. geht dieses:

Sub tt()
Dim akt\_pane\_index
akt\_pane\_index = ActiveWindow.ActivePane.Index
'...
ActiveWindow.Panes(akt\_pane\_index).Activate
End Sub

Gruß
Reinhard