Gesamtcode so ausführen wie Einzelcodes(Diagrammsegmente einblenden)

[o0Julia0o]

Genial - danke Dir! Das mit der Pause funktioniert. Die Datei ist mehr Baustelle, denn fertige Datei. Ich habe viele Diagramme gelöscht und wieder hinzugefügt, daher der andere Diagrammname. Und auch die Felder sind oder scheinen teils überflüssig. Das Makro zum löschen ist nur zu Testzwecken. Also z.B. für diese Sache hier gewesen. Dann muss ich das nicht immer manuell tun.

Aber ActiveSheet.ChartObjects("Diagramm 4").Chart.Refresh refreshed überhaupt nix. Wenn ich z.B. es so mache:

Code:

Sub DiagrammTextEin()
Worksheets("Rad").Range("B2").FormulaLocal = "=" & "P2"
Sleep 400
Worksheets("Rad").Range("B3").FormulaLocal = "=" & "P3"
Sleep 400
Worksheets("Rad").Range("B4").FormulaLocal = "=" & "P4"
Sleep 400
ActiveSheet.ChartObjects("Diagramm 4").Chart.Refresh
Worksheets("Rad").Range("B5").FormulaLocal = "=" & "P2"
Sleep 400
Worksheets("Rad").Range("B6").FormulaLocal = "=" & "P3"
Sleep 400
Worksheets("Rad").Range("B7").FormulaLocal = "=" & "P4"
End Sub

dann wird wieder nur das gesamte Diagramm refreshed, nachdem alle Namen eingetragen wurden. Aber wie gesagt, mit Pause statt Sleep refresht das Diagramm bei jeder Pause.