Moin Forum,
ich habe eine Form, in der ein Textfeld mit folgendem change-Ereignis reagieren soll:
Private Sub txtInputTrain_Change()
Application.ScreenUpdating = False
Select Case txtInputTrain.Text
Case 0, 1, 2, 3
Worksheets(„Training“).Range(„A1“).End(xlDown).Offset(1, 0).Value = txtInputTrain.Text
Call UpdateFormTraining(VUebung)
Worksheets(„Blank“).Activate
Case Else
If txtInputTrain.Text = „“ Then
Else
MsgBox(„Falsche Eingabe!“ & vbCrLf & vbCrLf & „Erlaubt sind 0, 1, 2 or 3“, vbOKOnly + vbInformation, „DartForFun! - Falsche Eingabe“)
txtInputTrain.SetFocus
txtInputTrain.Text = „“
End If
End Select
Application.ScreenUpdating = True
End Sub
Sobald diese Form mit dem Befehl form.hide geschlossen und kurz darauf wieder mit form.show geöffnet wird, reagiert das Textfeld seltsamerweise nicht mehr auf das Ereignis. Ich kann werte eingeben, aber es erfolgt keine Reaktion. Woran könnte das liegen?
Ich hab mein Projekt mal HIERhochgeladen, wer sich das mal anschauen möchte:
* In der Hauptform den Button TRAINING anklicken.
* 100 Werte eingeben, das ist die runde vorbei (geht ganz fix, einfach die 1 gedrückt halten)
* Die Form wird geschlossen und die Hauptform ist wieder sichtbar
* Dann nochmal auf TRAINING, und ich kann nun werte ohne reaktion eingeben…
Den Code erreicht man über den Button ADMIN auf der Hauptform, das Kennwort ist admin.
Danke schonmal für Eure Mühe…
lg Micha