Office: KeyPress mit verschiedenen Eigenschaften

Hallo, ich habe zwei Dinger am laufen:
Einerseits wird die Datumseingabe gesteuert (siehe oben), andererseits soll bei Drücken der ENTER-Taste ein anderes Makro aufgerufen werden (siehe unten). Nun ist ja der Wert in Klammern oben „ByVal KeyAscii As MSForms.ReturnInteger“, der unten „KeyAscii As Integer“. Als zwei Makros geht es ja nicht, da sonst VBA meckert es gäbe 2x Textbox1_KeyPress. Wie kann ich die beiden zusammenfügen? Weiß leider nicht weiter… Danke schon mal. Gruß P.

Code:

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 

Select Case KeyAscii 
Case Asc("0") To Asc("9") 
Case Asc(".") 
If Len(Textbox1) = 0 Then 
KeyAscii = 0 
Else 
If Len(Textbox1) - Len(Application.Substitute(Textbox1, ".", "")) = 2 Then 
KeyAscii = 0 
ElseIf Len(Textbox1) > 1 Then 
If Mid(Textbox1, Len(Textbox1), 1) = "." Then KeyAscii = 0 
Else 
KeyAscii = Asc(".") 
End If 
End If 
Case Else 
KeyAscii = 0 
End Select 
End Sub

Code:

Private Sub Textbox1_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
Call Textbox1_LostFocus 
Else 
End If 
End Sub

 

Code:

Option Explicit

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        Call Textbox1_LostFocus
    Else
        Select Case KeyAscii
            Case Asc("0") To Asc("9")
            Case Asc(".")
                If Len(Textbox1) = 0 Then
                    KeyAscii = 0
                Else
                    If Len(Textbox1) - Len(Application.Substitute(Textbox1, ".", "")) = 2 Then
                    KeyAscii = 0
                ElseIf Len(Textbox1) > 1 Then
                    If Mid(Textbox1, Len(Textbox1), 1) = "." Then KeyAscii = 0
                    Else
                        KeyAscii = Asc(".")
                    End If
                End If
            Case Else
                KeyAscii = 0
        End Select
    End If
End Sub

 

Ich hab es jetzt so gemacht, dass ich das mit dem Enter in ein KeyDown-Ereignis-Sub geschrieben hab. War mir noch eingefallen und da blick ich besser durch!

Danke trotzdem, guter Denkansatz!