Hallo,
in VBA habe ich ein Makro erstellt was beim Öffnen der Excel Datei ausgeführt wird. Das Makro erstellt ein Diagramm und ich habe in das Workbook
Sub Workbook\_open()
Diagramm
End Sub
hineingeschrieben damit das Marko mit dem Diagramm beim Öffnen der Excel Datei gestartet wird. Mein Problem ist jetzt wenn ich beim ersten mal die Excel Datei öffne funktioniert alles Problemlos. Nun speicher ich vielleicht ab. Das Diagramm wurde mitabgespeichert und beim wiederöffnen versucht Excel wieder ein Diagramm zu erstellen obwohl schon eins da ist. VBA zeigt mir dann den Laufzeitfehler 1004 an jemand ne idee wie ich das beheben kann? Sozusagen nur beim aller ersten mal öffnen der Excel Datei das Diagramm erstellen.
Danke im vorraus für die Hilfe
der Excel Datei gestartet wird. Mein Problem ist jetzt wenn
ich beim ersten mal die Excel Datei öffne funktioniert alles
Problemlos. Nun speicher ich vielleicht ab. Das Diagramm wurde
mitabgespeichert und beim wiederöffnen versucht Excel wieder
ein Diagramm zu erstellen obwohl schon eins da ist. VBA zeigt
mir dann den Laufzeitfehler 1004 an jemand ne idee wie ich das
beheben kann? Sozusagen nur beim aller ersten mal öffnen der
Excel Datei das Diagramm erstellen.
Hallo Feco,
das geht schon, wäre aber Wirkungsbekämpfung nicht Ursachenbekämpfung.
In welcher Codezeile kommt 1004, steht Text dabei?
Zeige mal den Code von Diagramm.
Oder gleich eine Beispielmappe wo der Fehler auftritt mit FAQ:2861 hochladen.
Gruß
Reinhard
Ich habe die Datei jetzt mal hochgeladen
http://www.hostarea.de/server-03/Maerz-0db53eb640.xls
Wenn man die Datei öffnet sollte ein Diagramm automatisch erstellst werden. Beim anschliessendem abspeichern und wieder öffnen tritt der Laufzeitfehler auf.
Hallo Feco,
das liegt an
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=„Grafik“
Hättest du die zeile gleich gezeigt hätte ich dir das gleich sagen können, zumindest mit grpßer Vermutung was vorliegt.
Diagramm ist zu allgemein, sage bitte beim nächsten Mal Diagramm in einem Tabellenblatt oder Diagramm als Diagrammblatt.
Ist zwar nicht die gentlemanart, aber schreibe das mal vor die Fehlerzeile:
On Error Resume Next
Application.DisplayAlerts = False
Sheets(„Grafik“).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Klappt aber perfekt. Vielen Dank