Haelfte der Daten fehlen
Abu
Ich habe ein Makro das mir aus einem Blatt 4 Diagramme kopiert, in eine neue Datei einfuegt und diese dann per Mail verschickt.
Soweit laeuft das Makro auch durch aber wenn ich mir dann die Mail anschaue, dann fehlen 2 Diagramme.
Sub Quality()
ActiveSheet.Shapes.Range(Array("Chart 2", "Chart 3", "Chart 4", "Chart 5")).Select
Selection.Copy
Workbooks.Add
Sheets("Sheet1").Select
ActiveSheet.Paste
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Dear Team,"
.Item.To = ""
.Item.Cc = ""
.Item.Subject = ""
.Item.Send
End With
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
Wenn ich das Makro anhalte und mir die Datei anschaue, sind alle 4 Diagramme korrekt kopiert.
Hat jemand eine Idee woran das liegen kann?
Beste Gruesse
Abu