Hallo Gemeinde,
ich hab eine kleine Abfrage geschrieben und steh jetzt vor dem Problem das der Inhalt der Textfelder bestehen bleibt. Ich hätte aber gerne das mit Klick auf den Command Button1 sich das Textfeld säubert.
Und wenn Ihr schon für mich denkt
dann hätte ich noch gerne eine Zufallsgenerator mit dabei.
Das ganze läuft dann in Powerpoint. Das skript häng ich an.
Vielen Dank im voraus.
Private Sub CommandButton1_Click()
Dim laender, etext As String
Dim posi As Integer
etext = UCase(Left(TextBox1.Text, 3))
laender = "ALB "
posi = InStr(laender, etext)
If posi = 0 Then
MsgBox " Falsche Eingabe" & Chr(13) & etext
Exit Sub
End If
posi = Int(pos / 4) + 1
With SlideShowWindows(1).View
.GotoSlide 2
End With
End Sub
ich hab eine kleine Abfrage geschrieben und steh jetzt vor dem Problem das der Inhalt der Textfelder bestehen bleibt. Ich hätte aber gerne das mit Klick auf den Command Button1 sich das Textfeld säubert.
Und wenn Ihr schon für mich denkt
dann hätte ich noch gerne eine Zufallsgenerator mit dabei. Das ganze läuft dann in Powerpoint. Das skript häng ich an.
Vielen Dank im voraus.
Private Sub CommandButton1_Click()
Dim laender, etext As String
Dim posi As Integer
etext = UCase(Left(TextBox1.Text, 3))
laender = "ALB "
posi = InStr(laender, etext)
If posi = 0 Then
MsgBox " Falsche Eingabe" & Chr(13) & etext
Exit Sub
End If
posi = Int(pos / 4) + 1
With SlideShowWindows(1).View
.GotoSlide 2
End With
End Sub
