Wenn Sie das Bildschirmbild für den Benutzer wiederherstellen möchten, nachdem ein Makro die Fensteransicht geändert hat,
Sie können manchmal einfach die Zelle aktivieren, die beim Start des Makros die aktive Zelle war. Dies ist nicht immer erfolgreich.
Der folgende Beispielcode stellt die Fensterposition so wieder her, wie sie beim Start des Makros war:
Dim aRow As Long, aColumn As Integer, aRange As String ' globale Variablen Sub RememberWindowPosition() ' Führen Sie dies aus, bevor Sie Änderungen vornehmen. Mit ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition() ' dies um die Position im Fenster wiederherzustellen Range(aRange).Select With ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub