Wie gebe ich mehrere Zeichen in TextBox1_Change ein

Question

Ich muss mehrere Zeichen in eine ActiveX-Textbox in PowerPoint eingeben, bevor der Marco feuert. Das aktuelle Makro wird ausgelöst, wenn jedes Zeichen eingegeben wird.

Private Sub TextBox1_Change() 
    IF TextBox1.Value = "18" then 
     MsgBox "You have entered 18" 
    End If 
End Sub 

Frühere Versuche waren gescheitert, so musste ich einen CommandButton hinzufügen, die die Aktionen, nachdem alle Zeichen in das Textfeld eingegeben wurden auslösen würde, aber es ist umständlich zu tippen und klicken Sie auf Aufgaben auszuführen. So wäre es noch besser, wenn das Makro nach dem Drücken der Enter/Return-Taste nach Eingabe der erforderlichen Daten ausgelöst würde. Ich habe versucht, KeyPress und KeyDown und das heißt

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
     MsgBox "hello" 
    End If 
End Sub 

aber das Code gab mir einen Compiler-Fehler:

Procedure declaration does not match description of event or procedure having the same name.

Answer 1

Vielleicht ist das Lostfocus-Ereignis wäre nützlicher. Angenommen, TextBox1 ist auf Folie 1:

Private Sub TextBox1_LostFocus() 
    MsgBox ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text 
End Sub