In einem Userform soll ein Datum in der Form 07022019 eingegeben werden und dann in 07.02.2019 umgewandelt werden. Das funktioniert unter Vista tadellos.
Unter Win10 kommt die Fehlermeldung:
Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden.
Hier der Code, um den es geht:
Private Sub KA_TB_Datu_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If Len(KA_TB_Datu) = 0 Then
KeyAscii = 0
Else
If Len(KA_TB_Datu) - Len(Application.Substitute(TextBox6, ".", "")) = 2 Then
KeyAscii = 0
ElseIf Len(KA_TB_Datu) > 1 Then
If Mid(KA_TB_Datu, Len(KA_TB_Datu), 1) = "." Then KeyAscii = 0
Else
KeyAscii = Asc(".")
End If
End If
Case Else
KeyAscii = 0
End Select
End Sub
Der Code bleibt in der ersten Zeile stehen. Wo kann/soll ich suchen?
Gruß Eberhard