Hallo liebe Excel-Profis,

ich möchte mit einer Abfrage per VBA 100 € Scheine Grafiken nach oben stapeln und zwar immer um 0.05 increment nach rechts und um 7 nach oben.

Das hat auch schon mal funktioniert, aber seit heute geht es nicht mehr - ich will einfach STRG + l drücken und der nächste Schein soll oberhalb eingefügt werden. ActiveSheet.Paste ist der Stop

Was noch nie funktioniert hat ist die For Next Schleife, mit der ich z.B. 40 eingebe und dann 40x 100 € Scheine hochgestapelt werden

Deswegen bitte ich Euch um Rat:

Sub Geldscheinkopieren()
' Tastenkombination: Strg+l

WieOft = InputBox("Wie Oft:", "Geldscheine stapeln")

For I = 1 To WieOft

Selection.Copy
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 0.05
Selection.ShapeRange.IncrementTop -7

Next

End Sub

https://www.herber.de/bbs/user/174757.xlsm

Die Geldstapel links sind das Ziel

Vielen herz lichten Dank für Eure Unterstützung - Ich habe hier schon so viel lernen können!

Hyperionnn