Leider kommt noch eine Fehlermeldung
Publicparam AsString
PublicZähler AsString
OptionExplicit
PublicSubxlsppt()
Zähler = 1
Anfang:
param = "Kommentar "& Zähler
MsgBox param
DimppApp AsPowerPoint.Application, ppPres AsPowerPoint.Presentation
'Folgender Fehler erscheint
'Fehler beim Kompilieren
'Benutzerdefinierter Typ nicht definiert
SetppApp = CreateObject("powerpoint.application")
ppApp.Visible = msoTrue
SetppPres = ppApp.Presentations.Open("C:\Users\user\Documents\pptxls.pptm"): DoEvents
'Hier ggf. noch Datei und Modulname anpassen.
ppApp.Run "pptxls.pptm!Modul1.pptxls", param
ppPres.Saved = True
ppPres.Close
SetppPres = Nothing
ppApp.Quit
SetppApp = Nothing
Zähler = Zähler + 1
IfZähler > 1 ThenGoToEnde
GoToAnfang
Ende:
MsgBox "fertig"
EndSub