Office: (Office 2010) Code funktioniert im VBA-Modul über "Play", aber nicht über den Button in der Tabelle

Das Makro läuft einwandfrei, wenn ich es im VBA-Editor über den Play-Button starte. Wichtig ist mir hier das nach-oben-scrollen.
Starte ich den gleichen Code über das Active-X-Steuerelement in der Tabelle, scrollt er nicht nach oben, aber der Rest funktioniert.
Zur Info: die ersten beiden Zeilen sind fixiert.
Ich vermute den Fehler in der ActiveWindow ... Zeile, finde aber keine Lösung für das Problem.

Code:

Sub erstefreieZinDHL()
Dim Zeil1
Dim Zeil2
Dim Zeil3
[D3].End(xlDown).Offset(1, 0).Select
Zeil1 = Selection.Row
Debug.Print Zeil1
Schaden = (Zeil1 - 4) ^ 1.6 * 12
Sheets("Übersicht").Range("H35").Value = Schaden
[H3].End(xlDown).Offset(1, 0).Select
Zeil2 = Selection.Row
Debug.Print Zeil2
Rüstung = (Zeil2 - 4) ^ 1.6 * 9
Sheets("Übersicht").Range("J35").Value = Rüstung
[L3].End(xlDown).Offset(1, 0).Select
Zeil3 = Selection.Row
Debug.Print Zeil3
Leben = (Zeil3 - 4) ^ 1.6 * 72
Sheets("Übersicht").Range("L35").Value = Leben
Cells(1, 1).Activate
ActiveWindow.SmallScroll Up:=5000
End Sub

 

Hi,

eventuell hilft es, wenn du die Eigenschaft TakeFocusOnClick für das ActiveX-Steuerelement auf False setzt.

Bis später,
Karin