Aktive Zellposition mittig scrollen

[derhard]

Hallo,
Bitte um VBA Hilfe
Das Makro sollte in meiner Foto-Datenbank in dem Bereich von M:R
jeweils nur die markierte aktive Zelle und nur wenn eine Zelle gefüllt mit einem Foto-Namen
horizontal in Bildschirm mitte und vertikal in oberster Position  gescrollt werden, um das hinterlegte
Foto und die Informationen in voller Größe zu sehen!
(siehe Testmappe)

Vielen Dank für die Hilfe
Gruß Derhard

[RPP63]

Hallo!
Deine Mappe enthält keinen Code, deshalb nur dass "mittige" Positionieren der Spalte und nach-oben-scrollen.

Sub Mitte()
Range("A1").Select
With Range("N22")
   .Select
   ActiveWindow.ScrollRow = .Row
End With
End Sub

Gruß Ralf

[RPP63]

… wobei es sinniger sein dürfte, das Bild oben links zu plazieren:

Sub Mitte()
With Range("N22")
   ActiveWindow.ScrollColumn = .Column
   ActiveWindow.ScrollRow = .Row
End With
End Sub

Gruß Ralf

[derhard]

Hallo Ralf,
Vielen Dank für deine Hilfe

Es war so nicht ganz gemeint!
Wichtig ist, dass die markierte Zelle (Aktive Zelle) nicht verlassen wird!
Diese muss immer markiert bleiben und sollte so mittig in waagerechter Position und möglichst weit oben in senkrechter Position am Bildschirm gescrollt werden,
sodass ich das Foto gut sehen kann!

Gruß Derhard