Sort von Active Controlls funktioniert nicht. Bug?

Hallo Community,


ich habe ein kleines Anliegen. Per VBA erstelle ich für jede Reihe einen Button und passe ihn auf die Grösse einer Zelle an. Neben .Name, .Caption und .OnAction verpasse ich ihm .Placement = xlMove (Ich weiss, das ist per Default eingeschaltet, habe es zu Illustrationszwecken aber hier aufgeführt). Wenn ich nun die Tabelle, in der sich der Button befindet, ordne, dann sollte sich der Button mit der dazugehörigen Reihe mitbewegen. Tut er aber nicht. Das ist deshalb besonders doof, weil er auf eine Zeile verweist, die sich in der selben Reihe befinden muss, wie der Button.


Im VBA sieht das so aus: Bei .OnAction definiere ich den Parameter, den ich an die darauf folgende Funktion weitergebe.


Set Rng = Activesheet.Cells(i, j)

Set NewButton = Activesheet.Buttons.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)

Action = "'Button(" & chr34 & Activesheet.Range("b" & i) & chr34 & ")'"


With NewButton
.Placement = xlMove

.OnAction = Action

.Name = "BuyButton"

.Caption = "Buy"

End with

.......


Sub Button(ObjectToBuy As String)
MsgBox (ObjectToBuy)
End Sub


Ich glaubte, das Problem umgehen zu können, indem ich bei Klick auf den Button die Reihe der unterliegenden Zelle auslese und dann dadurch auf die Relevante Zelle schliessen kann. Hier der Code:


Sub Button()

Dim b As Object, rw As Integer
Dim message As String

Set b = ActiveSheet.Buttons(Application.Caller)
With b.TopLeftCell
rw = .Row
End With


msgBox (Activesheet.Range("b" & rw)


End Sub


Aber jetzt komm das wirklich Kuriose. Wenn ich jetzt die Tabelle sortiere, dann verschiebt sich der Button noch immer nicht. Das wäre mir aber egal, da er jetzt ja einfach auf die Zelle in der Reihe verweist, in der er sich nun neuerdings befindet. Aber siehe da. Er gibt das Feld aus, in dem er sich befinden SOLLTE. Wenn sich der Button beispielsweise in Reihe 2 befindet, die nach der Sortierfunktion in Reihe 20 landet, dann verweist er auf das Feld in Reihe 20, obwohl er sich noch immer in Reihe 2 befindet.


Die einzige Lösung, die ich gefunden habe ist, dass ich .Placement = xlFreeFloating gesetzt habe. Dann verweisen die Buttons nach wie vor auf die Zelle in der selben Reihe, wie sie sich gerade befinden. Aber das ist nicht ideal, da sich bei jeder Grössenanpassung der Tabelle die Buttons aus ihrer Position verschieben. Kennt da jemand eine Lösung? Ist das vielleicht ein Bug vom Excel?