Excellent

Habe mittels Befehlsschaltfläche ein Diagramm mit Standardwerten eingeblendet. Möchte dies nach Eingabe sogenannter Prognosewerte (und Auswertung) mit denen der Verlauf bei Vorlage gewisser Bedingungen, zu beobachten ist, wieder ausblenden.
Zur Einblendung habe ich folgendes Makro erstellt:
Sub Einblenden()
'
Sheets("Jahresfortschreibung").Select
ActiveSheet.ChartObjects("Diagramm 23").Activate
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Lebensmittel.xls").Activate
Sheets("5").Select
Range("A3").Select
Range("C3").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
Das Ausblenden gelingt mir aber nicht. Bekomme immer Fehlermeldungen. Selbst wenn ich das Makro aufzeichne. Sobald ich es über die Befehlsschaltfläche aufrufe, bekomme ich Fehlermeldung.
Kann mir jemand helfen?
Frld. Grüße aus Karlsbad
Hans Paul

Hallo Hans Paul,
welche Fehlermeldung bekommst Du denn ?
Manchmal "zickt" VBA wenn dasMakro über einen Button aufgerufen wird, da der im Standard die TakeFocusOnClick auf True hat.

Dann kommt irgendeine Meldung das nicht selektiert werden kann.
Das lässt sich (meist) umgehen, indem man in die erste Zeile nach sub schreibt.
activecell.select

Ansonsten mal bitte posten welche Fehlermeldung kommt
Gruß
Andreas

Hallo Andreas, erstmal vielen Dank für deinen Hinweis. Habe das Makro mit deiner Textzeile erweitert. Trotzdem bekomme ich nach wie vor folgende Fehlermeldungen:
- bei Start über die Befehlsschaltfläche: "Objekt erforderlich",
- bei Start aus der VBA-Umgebung (Prüfzkwecke), erscheint die gleiche Meldung, zusätzlich aber noch "Laufzeitfehler 424"

Hallo,

in welcher Zeile schlägt der Debugger denn auf ?
Gibt es das Objekt "Diagramm23" wirklich ?
Gruß
Andreas

Sorry, die vorherige Antwort habe ich falsch gepostet, sollte in meine andere Anfrage bzgl. InputBox!
Tut mir leid, wenn ich di unnötige Arbeit gemacht habe!
Habe auf einem separaten Tabellenblatt (Jahresfortschreibung) ein ganz normales Balkendiagramm integriert. Dieses soll mittels Makro und Befehlsschaltfläche in das laufende Monats-Tabellenblatt eingeblendet und nach diversen Tests wieder ausgeblendet werden. Will mir damit das ständige Umschalten ersparen.
Anbei der Code für das Ein- und Ausblenden. Einblenden klappt!, beim Ausblenden geht VBA ins debuggen. Zeile ist markiert.
Sub Einblenden()
ActiveCell.Select 'Makro wurde mit dem M-Rekorder aufgezeichnet
Sheets("Jahresfortschreibung").select
ActiveSheet.ChartObjects("Diagramm 23").Activate
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Lebensmittel.xls").Activate
Sheets("5").select
Range("C3").select
ActiveSheet.Paste
Range("A1").select
End Sub

Sub Ausblenden()
ActiveSheet.ChartObjects("Diagramm 70").Activate 'auch dieses Makro wurde mit dem M-Rekorder aufgezeichnet, diese 1. Textzeile wird im Editor gelb hinterlegt, oder wie du sagst, hier schlägt der Hammer auf!

ActiveChart.ChartArea.Select
ActiveWindow.Visible=False
selection.delete
End Sub

warum nun das Diagramm nach dem Einfügen Diagramm 70 heißen soll, verstehe ich nicht, das manuelle Abändern auf Diagramm 23 hilft aber auch nicht.

Beste Grüße und nochmals ein großes SORRY!

Tabelle1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Hallo,
sorry da muss ich im Moment passen.
Aber ich meine gelesen zu haben, daß diagramme oder auch andere Objekte einfach willkürlich durchnummeriert werden.
Leider finde ich das im Moment nicht so auf die schnelle wie es gelöst wurde.
Einen Ansatz hat Peter H hier mal geschrieben
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=27185&h=27185

Gruß
Andreas