Hallo,
ich bin am verzweifeln. Ich nutze Excel 2007 unter Win8. Bei einer Excel-Datei entsteht während des Ablaufens eines Makros, folgende Fehlermeldung: Laufzeitfehler 1004: Die Past-Methode des Worksheet-Objektes kann nicht ausgeführt werden.
Das schön ist daran, ich würde sagen es liegt nicht am Makro, da es auf 3 anderen Rechner läuft. Die selbe Datei. Es kann auch eigentlich nicht direkt mit Win8 zusammenhängen.
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
'
' Diagramme_kopieren Makro
'
'Das Makro dient dazu alle Diagramm der einzelnen Seiten auf eine Seite zu kopieren. Wobei dann auch sämmtliche Änderungen (Formatierungen, Trendlinien ...) mit kopiert werden.
'
Application.ScreenUpdating = False 'Dient dazu, das die folgenden Schritte nicht in Excel dargestellt werden.
' Diagramme loeschen Makro - Die alten Kennlinien werden gelöscht.
Worksheets("Geforderte Kennlinien").Select 'Das Arbeitsblatt auf dem alle Diagramme abgebildet sind (Geforderte Kennlinien) wird ausgewählt.
ActiveSheet.ChartObjects("Diagramm-Temp").Activate 'Das Diagramm für die Temperatur (Diagramm-Temp) wird ausgewählt.
ActiveChart.Parent.Delete 'Das ausgewählte Diagramm wird gelöscht.
ActiveSheet.ChartObjects("Diagramm-IU").Activate
ActiveChart.Parent.Delete
ActiveSheet.ChartObjects("Diagramm-Mn").Activate
ActiveChart.Parent.Delete
ActiveSheet.ChartObjects("Diagramm-Winkel").Activate
ActiveChart.Parent.Delete
ActiveSheet.ChartObjects("Diagramm-eta").Activate
ActiveChart.Parent.Delete
' temp Makro - Das Diagramm für die Temperatur wird kopiert.
Worksheets("Temperatur").Select 'Das Arbeitsblatt (Temperatur) auf dem das Temperatur-Diagramm abgebildet ist wird ausgewählt.
ActiveSheet.ChartObjects("Diagramm-Temp").Activate 'Das Diagramm für die Temperatur (Diagramm-Temp) wird ausgewählt.
ActiveChart.ChartArea.Copy 'Das Diagramm für die Temperatur (Diagramm-Temp) wird kopiert.
Worksheets("Geforderte Kennlinien").Select 'Das Arbeitsblatt auf dem alle Diagramme abgebildet sind (Geforderte Kennlinien) wird ausgewählt.
Range("A14").Select 'Die Position/Zelle wo das Temperatur-Diagramm platziert werden soll wird markiert.
ActiveSheet.Paste 'Das Temperatur-Diagramm wird an die zuvor markierte Position/Zelle eingefügt.
' elekt Makro - Diagramm mit elektrischen Größen werden kopiert.
Worksheets("elektr. Größen (U I Pelek)").Select
ActiveSheet.ChartObjects("Diagramm-IU").Activate
Selection.Copy
Worksheets("Geforderte Kennlinien").Select
Range("A58").Select
ActiveSheet.Paste
' mech Makro - Diagramme mit Kennlinen der mech. Gößen werden kopiert.
Worksheets("mech. Größen (n M Winkel Pmech)").Select
ActiveSheet.ChartObjects("Diagramm-Mn").Activate
Selection.Copy
Worksheets("Geforderte Kennlinien").Select
Range("A86").Select
ActiveSheet.Paste
Worksheets("mech. Größen (n M Winkel Pmech)").Select
ActiveSheet.ChartObjects("Diagramm-Winkel").Activate
Selection.Copy
Worksheets("Geforderte Kennlinien").Select
Range("A114").Select
ActiveSheet.Paste
usw......
Ich würde mich über Hilfe sehr freuen.
Mit freundlichen Grüßen John-Paul Engelmeier