![]() |
Betrifft: Grafik
von: Petra
Schönen Freitag-Nachmittag allerseits.
Sub test() Dim i% For i = 1 To 100 ActiveSheet.Cells(3, 2) = 100 - i 'ActiveSheet.ChartObjects("Diagramm 10").Activate ' Sleep 200 Next i End Sub
Mit diesem kleinen Makro möchte ich in einer Grafik einen Balken steuern (die Größe verändern). Mit Einzelschritt (F8) funktionierts, ohne Einzelschritt nicht!
Die Sleep oder auch Wait Funktion haben keine Besserung gebracht.
Weiß jemand einen Tipp für mich?
Liebe Grüße Petra
![]() |
Betrifft: AW: Grafik
von: Beverly
Sub test() Dim i% For i = 100 To 1 Step -1 ActiveSheet.Cells(3, 2) = i Application.Wait Now + TimeValue("00:00:01") Next i End Sub
![]() |
Betrifft: AW: Grafik
von: Renee
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Sub test() Dim i% For i = 1 To 100 ActiveSheet.Cells(11, 3) = 100 - i Sleep 200 Application.ScreenUpdating = True Next i End Sub
GreetZ Renée
![]() |
Betrifft: AW: Grafik
von: Tipp
Sub test() Dim i% For i = 1 To 100 ActiveSheet.Cells(3, 2) = 100 - i DoEvents Next i End Sub
Klappts??
Grüße vom Tipp
![]() |
Betrifft: AW: Grafik
von: Petra
Geschrieben am: 04.04.2008 14:08:20
Hallo Tipp
Dein Tipp war goldwert!
Auch Danke an Beverly und Renee.
Schönen Nachmittag noch Petra
![]() |