vieleicht kann mir jemand helfen. Habe ein annimiertes Diagramm welches ich außer mit Esc nicht beenden kann.
Was muß ich anstellen, dass ich den Stopbutton irgendwie erreiche.
Danke Frank
https://www.herber.de/bbs/user/38275.xls
Sub schieferwurf()
Dim diag As Object
Set diag = ActiveSheet.ChartObjects("Diagramm 2")
Dim e As Double, a As Double, n As Double
Dim m As Integer
e = 250
a = e
s = e / 500
For m = 0 To 10
For w = 0 To e - s Step Cells(1, 1)
Cells(6, 4) = w
DoEvents
Next w
Next m
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen