Makro Übername von Zellwerten in PowerPoint
13.03.2017 14:22:44
Zellwerten
ich verzweifle an einem Makro, dass mir aus einer Excel-Datei (die während der Präsentation auf dem Referentenbildschirm geöffnet bleiben soll) Zellwerte in ein Textfeld (?!) in PowerPoint überträgt.
Die Excel soll wie gesagt geöffnet bleiben können und die Werte sollten sich bei Änderung direkt in der Folie ändern (sodass Änderungen in Excel direkt in PPT auf der bereits angezeigten Folie geändert werden.
Wie krieg ich das hin?
Ich hab es schon so probiert
Sub Beginn()
Set EX = CreateObject("Excel.Application")
EX.Workbooks.Open(fileName:="Macintosh HD:Users:user:Odner:Datei.xlsm", ReadOnly:=True)
KBeginn = EX.Workbooks("Datei.xlsm").Sheets(1).Cells(8, 12)
EX.Quit
ActivePresentation.Slides.Item(5).Shapes.Item(4).TextFrame.TextRange.Text = "Verbleibende _
Klausurzeit" & KBeginn
End Sub
Könnt ihr mir helfen?
Viele Grüße und besten Dank