Ich versuche, die Lösung aus diesem Beitrag zu übernehmen und habe das Makro leicht modifiziert (ich muss nur einen Klick auf die Schaltfläche hinzufügen), damit es jetzt ist Sub AdjustValue() Dim btnName As String Dim targetCell As String Dim addAmount As Integer btnName = Application.Caller...