Office: Positionierung dynamische Schaltfläche im Tabellenblatt

Hallo liebe Excelkenner,

ich wurde damit beauftragt eine Schaltfäche in ein Tabellenblatt zu implementieren. Diese Schaltfläche soll bei beim Scrollen auf dem Bildschirm mitwandern. Soweit so gut - dass die Schaltfläche beim Herunterscrollen an einer fixierten Stelle auf dem Bildschirm mitwandert habe ich soweit schon hinbekommen.

Momentan erscheint sie immer wieder in der oberen, linken Ecke des Tabellenblattes. Dort verdeckt sie dann aber leider einige Daten. Gerne möchte sie daher in der Bildschirmmitte platzieren. Ich habe schon ein wenig recherchiert und bin dabei auf die Definition per "Top" und "Left" gestoßen.

Da ich aber leider ein VBA-Neuling bin, kämpfe ich gerade noch mit dem richtigen Befehl. Wie muss ich denn per Top/Left, respektive X/Y-Koordinaten, in VBA programmieren, damit ich die Schaltfläche etwa mittig im Bildschirm platzieren kann?

Mein bisheriger Befehl sieht übrigens wie folgt aus:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

CommandButton1.Top = ActiveWindow.VisibleRange.Top
CommandButton1.Left = ActiveWindow.VisibleRange.Left

End Sub


Hoffentlich habe ich das einigermaßen verständlich beschrieben. Vielen Dank im Vorraus.

Beste Grüße

 

Hi,

vielleicht so etwas:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Top = ActiveCell.Top
    CommandButton1.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width / 2
End Sub

Bis später,
Karin

 

Ja, passt super. Besten Dank für die schnelle Hilfe!