ich zerbrech mir über folgende Situation den Kopf.
Ich möche aus einem Tabellenblatt ein Diagramm in anderes Tabellenblatt übertragen. Per copy&paste wird es richtig übertragen.
Wenn ich den Vorgang per Recorder aufzeichne und als einzelnes Makro ablaufen lasse, funktioniert auch alles richtig.
Sheets("Diagramm1").Select
ActiveChart.ChartArea.Copy
Sheets("Tabelle2").Select
ActiveSheet.Pictures.Paste.Select
Baue ich das nun in ein anderes Makro ein,
'Übertragen nach Tabelle 2
Sheets("Tabelle2").Select
ActiveSheet.Pictures.Delete
Sheets("Diagramm1").Select
ActiveChart.ChartArea.Copy
Sheets("Tabelle2").Select
Range("A7").Select
ActiveSheet.Pictures.Paste.Select
ActiveWindow.SmallScroll Down:=-27
Range("A41").Select
Sheets("Tabelle1").Select
Range("A1:G31").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Pictures.Paste.Select
Range("C5").Value = "Langtrend"
wird alles richtig übertragen...mit der Ausnahme das auf meiner X-Achse nicht mehr nur 3 Dezimalstellen sondern vier Dezimalstellen angezeigt werden und die Null vor dem Komma auch verschwindet. Was läuft da falsch? Und was kann ich ändern?
Beste Grüße Jens