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:
635		 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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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