Code geben Object Block Variable Fehler

Question

Ich habe eine kleine Benutzerformular mit einem Kombinationsfeld und 2 Textfelder und Absenden-Taste.

Während ich die Submit-Taste drücke, bekomme ich die Objektvariable nicht gesetzt Fehler.

Hier ist mein Code:

Private Sub CommandButton1_Click() 

Dim ws As Worksheet, tbl As ListObject, row As ListRow 

Set ws = Sheets("Create Account Heads") 
Set tbl = ws.ListObjects(Me.TextBox2.Value) 

Dim intValueToFind As String, rng As Range 

Set rng = tbl.ListColumns(1).DataBodyRange  
intValueToFind = LCase(Me.TextBox3.Value) 

If rng <> 0 Then 
    For Each rng In rng 
     If LCase(rng.Value) = intValueToFind Then 
      MsgBox ("Account Head with this Name Already Exists.") 
      Exit Sub 
     End If 
    Next rng 
Else 
    'Unprotect the Worksheet 
    ws.Unprotect Password:="google" 
End if 

End Sub 

ich die Störung erhalten in "Wenn rng <> 0 Then" -Zeile.

Bitte überprüfen und beraten, um dieses Problem zu überwinden.

Dank Salman

Answer 1

Ihre Leitungscode von Replace:

If rng <> 0 Then 

mit:

If Not rng Is Nothing Then