finden Funktion in VBA

Question

ich eine einfache Demo begann

durch Schreiben

Sub search() 
Range("B1:B7").Find("abc").Activate 
End Sub 

Ich hatte gehofft, dass Excel wird automatisch eine Zelle auswählen enthält Wert „abc“ in es jedoch bekam ich eine Fehlermeldung „Objektvariable oder mit Blockvariable nicht gesetzt ". Habe ich überhaupt etwas vermisst?

Schätzen Sie es.

Answer 1

"https://msdn.microsoft.com/en-us/library/office/ff839746.aspx"

Sub tester() 
    With Worksheets(6).Range("B1:B500") 
     Set c = .Find("Smith Jon Junior", LookIn:=xlValues) 
     If Not c Is Nothing Then 
      firstAddress = c.Address ' not required 
      c.Activate 
     else 
      msgbox ("Not Found") 
     End If 
    End With 
End Sub