Hallo und Guten Tag,

als VBA Anfänger versuche ich gerade in Powerpoint Textboxen, die sich auf jeder Folie befinden, mit einem Text zu beschreiben, welchen ich dynamisch (sich unregelmäßig ändernd) aus einer ExcelTabelle generiere zu füllen.

Aktuell habe ich das Problem, dass die TextBox mal durch den Script , beim Folienwechsel, gefüllt wird, mal nicht. Leider klappt das leeren der textbox mit dem Befehl (TextBox1 = " " bzw. TextBox1.Text = " " ) nicht.

Der Script funkioniert ansonsten - dies habe ich mit einer MsgBox getestet. Auch wird das Excel nicht korrekt geschlossen, sodass das Excel nicht mehr die Werte aktualsieren kann.

Private Sub TextBox1_Change()

' Werte Dimensionieren

Dim k As String
Dim wb As excel.Workbook
Dim xlApp As excel.Application

' TextBox1 leeren 
TextBox1 = ""

Set xlApp = New excel.Application
xlApp.Visible = False
'Pfad und Datei
Set wb = xlApp.Workbooks.Open(FileName:="D:\Pfad\T_est1.xlsx")
'Abfrage auf Zelle A1
k = wb.Worksheets(1).Cells(1, 1)

'TextBox mit der Variable k beschreiben
TextBox = k

'Excel schließen
wb.Close

xlApp.Quit

Set xlApp = Nothing


End Sub

Alternativ, wenn einfacher, kann ich mir auch vorstellen, dass ich Uhrzeitabhängig bestimmte Bilder an bestimmten Positionen einblenden lasse - wenn das einfacher sein sollte.

Vielen Dank schon mal für die Hilfe!

Vielen Grüße

Dominik