Tengo un formulario que se entra con nombre una clave, todo funcionaba nornalmente y de pronto me da un error ..

Private Sub btn_Registrar_Click()
'En resumen, siempre debemos comenzar las macros así:
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

Dim usuario As String
Dim Fila, Final As Integer
Dim password, UsuarioEncontrado, yaExiste, Status
Dim Rango As Range
Titulo = "Movit 2.1.32 Maschinenkapazitätplanung"

yaExiste = Application.WorksheetFunction.CountIf(Tabelle6.Range("Tabla1[Usuario]"), Me.txtUsuario.Value)
Set Rango = Tabelle6.Range("Tabla1[Usuario]")

If Me.txtUsuario.Value = "" Or Me.txtPassword.Value = "" Then
MsgBox "Bitte Name und Password eingeben", vbExclamation, Titulo
Me.txtUsuario.SetFocus

ElseIf yaExiste = 0 Then
MsgBox "Diese Name '" & Me.txtUsuario & "' ist falsch", vbExclamation, Titulo
ElseIf yaExiste = 1 Then
UsuarioEncontrado = Rango.Find(What:=Me.txtUsuario.Value, MatchCase:=False).Address
password = Tabelle6.Range(UsuarioEncontrado).Offset(0, 1).Value
Status = Tabelle6.Range(UsuarioEncontrado).Offset(0, 2).Value
If Tabelle6.Range(UsuarioEncontrado).Value = Me.txtUsuario.Value And password = Me.txtPassword.Value Then
For Fila = 1 To 1000
If Tabelle8.Cells(Fila, 1) = "" Then
Final = Fila
Exit For
End If
Next
Tabelle8.Cells(Final, 1) = "=NOW()"
Tabelle8.Cells(Final, 1).Copy
Tabelle8.Cells(Final, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Tabelle8.Cells(Final, 2) = Me.txtUsuario
Tabelle8.Cells(Final, 3) = Status
If Status = "Admin" Then
frm_Menu.CommandButton2.Enabled = True
'frm_Menu.CommandButton9.Enabled = True
frm_Menu.CommandButton10.Enabled = True
frm_Menu.CommandButton11.Enabled = True
frm_Menu.CommandButton12.Enabled = True
frm_Menu.CommandButton13.Enabled = True
frm_Menu.CommandButton223.Enabled = True
frm_Menu.CommandButton224.Enabled = True
frm_Menu.CommandButton35.Enabled = True
frm_Menu.CommandButton2.Enabled = True
frm_Menu.CommandButton11.Enabled = True
frm_Menu.CommandButton1.Enabled = True
frm_Menu.CommandButton225.Enabled = True
End If
Tabelle8.Range("G1") = Me.txtUsuario
Tabelle8.Range("H1") = Status
Unload Me
ThisWorkbook.Save
frm_Menu.Show
Else
MsgBox "Name oder Password falsch", vbExclamation, Titulo
End If
End If
'En resumen, siempre debemos finalizar las macros así:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False

El error me lo senala en la siguiente linea: 

yaExiste = Application.WorksheetFunction.CountIf(Tabelle6.Range("Tabla1[Usuario]"), 

error 1004 Range method object _Worksheet failed

Cual es la solución