Tabellenkalkulation

Chart

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hi Leute! Bräuchte bei folgendem Code Hilfe. m = Charts.Count Charts(m).Select Charts(m).Name = names Sheets(names).Move after:=Sheets(tabelle1) ´ActiveWorkbook.Sheets(tabelle1).Select ActiveWorkbook.Sheets("Steuerbox").Activate ActiveSheet.Cells(1, 1).Select Ich will die Grafik nicht nach der Tabelle1 integrieren sondern in das Sheet Steuerbox und das per VBA. Danke im Voraus Gruß AF

Antwort 1 von Beverly

Hi AF,

wenn ich dein Anliegen richtig verstanden habe, sollte dieser Code ausreichen

Sub AF()
    Charts(ThisWorkbook.Charts.Count).Location _     Where:=xlLocationAsObject, Name:="Steuerbox"
Edn Sub

Bis später,
Karin

Antwort 2 von VBA_Anfänger

Hi Karin!

Danke für die Hilfe. Es funktioniert auch bis auf das Problem das der Chart der davor erstellt wurde in der Taballe Steuerbox verbleibt ,wie kann ich diesen voriegen Chart automatisch in der Tabelle Steuerbox löschen?

Danke im Voraus

Gruß AF

Antwort 3 von Beverly

Hi AF,

setze einfach noch diese Zeile an den Anfang des Codes

Worksheets("Steuerbox").ChartObjects(1).Delete