ich möchte gerne ein live-Diagramm mit VBA erzeugen.
Die Balken sollen sich live aufbauen, sodass die Zuschauer erst am Ende sehen, welcher Balken am längsten ist.
Ich habe einen sehr einfachen Beispielcode und nun das Problem. dass sich das Diagramm erst nach dem Ablauf des Codes aktualisiert und die Arbeitsmappe vorher "hängt".
Code:
Sub Kopieren()
Application.ScreenUpdating = True
Dim NR As Long
Dim i As Long
Dim RdStk As Long
Dim wrsQuelle As Worksheet
Dim wrsLfdNr As Worksheet
Dim wrsZiel As Worksheet
Set wrsQuelle = Worksheets("Daten")
Set wrsZiel = Worksheets("Rennliste")
Set wrsLfdNr = Worksheets("NR")
For i = 1 To 1000
If wrsQuelle.Cells(2, 2) > i Then
wrsLfdNr.Cells(i + 1, 1).Copy Destination:=wrsZiel.Cells(2, 2)
Else
wrsQuelle.Cells(1, 2).Copy Destination:=wrsZiel.Cells(2, 2)
End If
''Application.Wait (Now + TimeValue("00:00:05"))
Next i
End Sub
https://www.herber.de/bbs/user/138127.xlsx
Hat jemand eine Idee, wie ich die Perfomance besser hinbekomme?
VG
Matthias