On Error GoTo Fehler:
    [...]
Fehler: Exit Sub

On Error Resume Next

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        Select Case KeyAscii
            Case 48 To 57
            Case 45 To 46
            Case 58                 'Doppelpunkt erlaubt
          Case Else: KeyAscii = 0         'Leerzeichen
        End Select
End Sub

Tabelle1.Cells(intErsteLeereZeile + 1, 1).Value = _
CDate(VBA.Format(Me.TextBox1.Value, "dd.mm.yy"))

With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
         .EnableEvents = False
End With

If Tabelle1.FilterMode Then Tabelle1.ShowAllData
    Else: Exit Sub
End if

If CloseMode = 0 Then Cancel = False

Tabelle1.Rows.AutoFit

Public Sub Callback1(control As IRibbonControl)

    call xxxxx

End Sub

    Application.GoTo Reference:=Tabelle1.Range("A1")

Tabelle1.Cells(Tabelle1.Rows.Count, "A").End(xlUp).Row

vbNullString