Hallo VBA-Liebhaber,

Ich hab hier eine Schaltfläche erzeugt, die eine neue Zeile an die an die unterste Position einer Tabelle einfügt. Die Tabelle wird also stetig größer. Nun soll diese Schaltf. Das eigentliche Problem hierbei ist: Die Schaltfläche (Formularsteuerelement).soll stets ein paar cm unterhalb der letzten beschriebenen Zeile stehen, d.h: sie soll sich dynamisch nach unten bewegen. Mein Minimalbeispiel sieht so aus, das allerdings nicht so ganz funktioniert:

Problem: Schaltfläche wird zuweit nach nach unten geschoben und verschwindet dann nach mehrmaligen klicken im Nirgendwo, oder wenn ich das Increment zu klein wähle, überholt die Tabelle meine Schaltfläche, die darauf hin immer größer wird......Das mit dem Rechtscklick und Steuerelement formatieren und Eigenschaften (Objektpositionierung) hat auch keine Lösung erzielt:

Ich hoffe da gibt es einen Lösungsweg? Danke schonmal im Voraus!

--------------------------------------------------

Sub Knopf_verschieben()
   
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    ActiveSheet.Shapes("Button 1").IncrementTop 51.75
    Range("A1").Select

End Sub

----------------------------------------------------