online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon sammille vom 10.03.2020, 20:39 Options

Zellfarbe aus Arbeitsmappe in Excelobjekt innerhalb Powerpoint auslesen

Hallo,

ich habe jetzt schon einiges porbiert, komme aber einfach nicht weiter.

Ich moechte, dass wenn ich eine Powerpoint Praesentation oeffne, in das eine Excel Tabelle eingebettet ist, ein VBA Code ausgefuehrt wird, der aus einer separaten Excel Arbeitsmappe die Zellfarbe einer bestimmten Zelle ausliest und sie kopiert in mein Excel Objekt in PowerPoint.

Der Ansatz schaut jetzt folgendermassen aus:

sub auto load () im module1 des excel objekts mit folgendem Inhalt:

ActiveWorkbook.Worksheets("Sheet1").Cells(A, 1).Interior.Colorindex = Workbooks("U:\qmt\tracking tool(beta)\tracking tool(beta).xls").Worksheets("Data").Cells(I, 9).Interior.Colorindex

Dabei bekomme ich folgende Fehlermeldung:

Runtime error: 9
Subscript out of range.

Bin fuer jede Hilfe dankbar.
Sebastian


Antwort schreiben

Antwort 1 von sammille vom 10.03.2020, 22:31 Options

Hallo miteinander,

ich moechte meine Fragestellung noch erweitern, und zwar um den umgekehrten Weg.

Sprich, ist es moeglich die Zellfarbe eines Excelobjektes in einer Powerpoint-Praesentation auszulesen und damit in eine Excel Arbeitsmappe einzufuegen?

Hier fehlt mir leider jeglicher Ansatz, denke aber doch dass es moeglich ist, da man ja unter "References" (wie es in der deutschen version heisst, weiss ich leider gerade nicht) auch ein Powerpoint PlugIn waehlen kann.

Also, schonmal vielen Dank.

Sebastian

Ähnliche Themen

Zellfarben in Formeln ändern
baby  04.04.2007 - 153 Hits - 8 Antworten

Makro zum Öffnen einer bestimmten Arbeitsmappe
peterle1234  11.12.2007 - 120 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026