Ich habe in PP2000 einen kleinen test mit Abfrage gemacht, funtioniert unter PP2002 leider nicht.
hier ist das Makro:
Dim z As Integer
Private Sub CommandButton1_Click()
x = TextBox1.Text
If x = „25“ Then
MsgBox „Das war richtig. Auf zur nächsten Aufgabe“
z = z + 1
TextBox1.Text = „“
SlideShowWindows(1).View.GotoSlide 18, msoTrue
Else
MsgBox „Das war noch nicht richtig. Versuch es nochmal.“
TextBox1.Text = „“
SlideShowWindows(1).View.GotoSlide 17, msoTrue
End If
End Sub
Sub TextBox1_Change()
End Sub
Wie müssen die Befehle bei 2002 heissen?
kann mir jemand helfen, oder wäre ein komlett neues Makro fällig?
Das was hier steht ist kein Makro sondern ein VBA-Script.
Ist das sicher das der Test unter 2000 funktioniert??
Also:
Dein „X“ solte einer Variable zugewiesen werden.
X soll der Wert im Feld „Text“ zugewiesen werden.
mit Text = „“ wird das Text-Feld gelöscht
Test doch mal dieses hier.
Private Sub CommandButton1_Click()
Dim x as Integer
x = Text
If x = 25 Then
MsgBox „Das war richtig. Auf zur nächsten Aufgabe“
z = z + 1
Text = „“
SlideShowWindows(1).View.GotoSlide 18, msoTrue (–> ???)
Else
MsgBox „Das war noch nicht richtig. Versuch es nochmal.“
Text = „“
SlideShowWindows(1).View.GotoSlide 17, msoTrue (–> ???)
End If
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
erst mal vielen Dank für deine Antwort.
Natürlich handelt es sich bei den Zeilen um VBA-Script, der eingebettet in ein Makro ist.
Es handelt sich hierbei um ein selbstgezimmertes kleines Lernprogramm unter Powerpiont. Auf der Folie kriegt der Nutzer eine Aufgabe gestellt, soll sie lösen und die eingetippte Zahl wird mit dem Script abgefragt, wenn das Ergebnis richtig ist, kommt er weiter zur nächsten Aufgabe, ansonsten zurück zur Aufgabe.
Ich würde nun das Script gerne unter PP2002 lauffähig machen. Leider läuft es mit der Änderung auch nicht.
Gruß Funky::
Dim z As Integer
Private Sub CommandButton1_Click()
x = TextBox1.Text
If x = „25“ Then
MsgBox „Das war richtig. Auf zur nächsten Aufgabe“
z = z + 1
TextBox1.Text = „“
SlideShowWindows(1).View.GotoSlide 18, msoTrue
Else
MsgBox „Das war noch nicht richtig. Versuch es nochmal.“
TextBox1.Text = „“
SlideShowWindows(1).View.GotoSlide 17, msoTrue
End If
End Sub
Sub TextBox1_Change()
End Sub
Wie müssen die Befehle bei 2002 heissen?
kann mir jemand helfen, oder wäre ein komlett neues Makro
fällig?
funky
Das was hier steht ist kein Makro sondern ein VBA-Script.
Ist das sicher das der Test unter 2000 funktioniert??
Also:
Dein „X“ solte einer Variable zugewiesen werden.
X soll der Wert im Feld „Text“ zugewiesen werden.
mit Text = „“ wird das Text-Feld gelöscht
Test doch mal dieses hier.
Private Sub CommandButton1_Click()
Dim x as Integer
x = Text
If x = 25 Then
MsgBox „Das war richtig. Auf zur nächsten Aufgabe“
z = z + 1
Text = „“
SlideShowWindows(1).View.GotoSlide 18, msoTrue (–> ???)
Else
MsgBox „Das war noch nicht richtig. Versuch es nochmal.“
Text = „“
SlideShowWindows(1).View.GotoSlide 17, msoTrue (–> ???)
End If
End Sub