Schleifenschritte ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Schleifenschritte ausblenden
von: Philipp
Geschrieben am: 15.02.2005 10:25:53
Hallo,
ich habe ein Blasendiagramm ersellt. Mit folgendem VBA-Code lasse ich die Beschriftung der Blasen ein- bzw. ausblenden.


Sub beschriftungon()                       
ws = ActiveSheet.Name
ActiveSheet.ChartObjects(1).Activate
For j = 2 To 500
 If Worksheets(ws).Cells(j, 1).Value <> 0 Then
    With ActiveChart.SeriesCollection(1).Points(j - 2 + 1)
        .HasDataLabel = True
        .DataLabel.Text = Worksheets(ws).Cells(j, 1).Value
    End With
 End If
Next j
End Sub


Sub beschriftungoff()                         
ws = ActiveSheet.Name
ActiveSheet.ChartObjects(1).Activate
For j = 2 To 500
 If Worksheets(ws).Cells(j, 1).Value <> 0 Then
    With ActiveChart.SeriesCollection(1).Points(j - 2 + 1)
        .HasDataLabel = True
        .DataLabel.Text = ""
    End With
 End If
Next j
End Sub


Bei diesem Vorgang, der ja eine 500-fache Schleife (nötig, da bis zu 500 Blasen) ist, wird jede Beschriftung nacheinander für den Nutzer sichtbar eingeblendet, d.h. das Diagramm fängt für kurze Zeit an zu blinken.
Kann man diesen Vorgang unsichtbar gestalten? So dass der Nutzer nichts von den einzelnen Vorgängen sieht?
Vielen Dank
Philipp
Bild

Betrifft: AW: Schleifenschritte ausblenden
von: Dr.
Geschrieben am: 15.02.2005 10:27:32
Du setzt an den Anfang der Schleife
Application.ScreenUpdating = False
und an das Ende der Schleife
Application.ScreenUpdating = True
Bild

Betrifft: AW: Schleifenschritte ausblenden
von: Galenzo
Geschrieben am: 15.02.2005 10:28:02
zu Beginn
Application.ScreenUpdating=False
und am Ende der Sub wieder auf True setzen.
Verhindert die Bildschirmaktualisierung - wie der Name schon sagt :-)
Bild

Betrifft: 30sec. :-(
von: Galenzo
Geschrieben am: 15.02.2005 10:28:41

Bild

Betrifft: Danke
von: Philipp
Geschrieben am: 15.02.2005 10:45:21
Hallo,
es funktioniert so, jetzt sieht das ganze sogar richtig cool aus!
Vielen Dank, Ihr und das Forum seid echt der Hammer! 2 Minuten Antwortszeit!!!! Da hätte es sich ja noch nichtmal gelohnt in einem Buch nachzuschlagen!!!!!!
Danke
Philipp
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schleifenschritte ausblenden"