Thema Datum  Von Nutzer Rating
Antwort
07.04.2018 09:09:34 Forstmogli
Solved
Blau Dynamische Textanzeige in Powerpoint
 07.04.2018 19:28:49 xlKing
NotSolved
08.04.2018 14:16:10 Forstmogli
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
07.04.2018 19:28:49		 Views:
485		 Rating:
     
Antwort:
  Ja
Thema:
Dynamische Textanzeige in Powerpoint

Hallo Dominik,

ich habe kein Powerpoint und kann deshalb leider nur mutmaßen. mit Textbox1="" bzw. Textbox=k (fehlt die 1 hier absichtlich?) veränderst du den Wert der Textbox und löst damit eine neues Change-Event aus. Das Ereignis ruft sich also selbst auf und löscht somit die eben vorgenommenen Einträge wieder raus. Versuche es mal mit einer zusätzlichen Variable:

Dim var As Boolean

Private Sub TextBox1_Change()
 
' Werte Dimensionieren
 
If var = False Then var = True Else var = False
 
If var = True Then
 
  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
  TextBox1 = k
 
  'Excel schließen
  wb.Close
 
  xlApp.Quit
 
  Set xlApp = Nothing
End If

End Sub

PS: Warum rufst du das Makro überhaupt über Textbox_Change auf, wenn du dann die Eingabe löschst und andere Werte reinschreibst? Wäre da nicht ein Aufruf per Button oder so sinnvoller?

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.04.2018 09:09:34 Forstmogli
Solved
Blau Dynamische Textanzeige in Powerpoint
 07.04.2018 19:28:49 xlKing
NotSolved
08.04.2018 14:16:10 Forstmogli
Solved