simpel vraagje over een macro.

[Willem Blaas]

geacht forum.

wanneer is onderstaande macro draai gaat t prima zolang het gevraagde te vinden is. is het niet te vinden springt hij op tilt. zet ik nu " If Not strnieuw1 Then End " erbij roept hij iets van objectvariable niet ingesteld ????
wat ik graag wil is dat , wanneer het niet te vinden is hij doorloopt naar "end"

Dim strnieuw1  As Variant
    
    strnieuw1 = InputBox("Wat zoekt u ?", "Database beheer")


    Cells.Select
    Selection.Find(What:=strnieuw1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
            If Not strnieuw1 Then End

        ActiveCell.Select
                            
                            

End Sub

bij voorbaat dank

 

[HSV]

Zo dan?

Sub tst()
Dim strnieuw1 As Variant
  strnieuw1 = InputBox("Wat zoekt u ?", "Database beheer")
    On Error Resume Next
   Cells.Find(What:=strnieuw1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
  ActiveCell.Select
End Sub

 

[Willem Blaas]

dank je wel, ga ik proberen in m kleine circus waar ik de clown speel

 

[Willem Blaas]

deed hij niet, heb t als volgt opgelost, nu loopt is

Private Sub CommandButton1_Click()

    Dim strnieuw1  As Variant
    strnieuw1 = InputBox("Wat zoekt u ?", "Database beheer")
    
    On Error GoTo helaas
    
    Cells.Select
    Selection.Find(What:=strnieuw1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
               
     End
            
helaas:
    MsgBox ("Geen antwoord gevonden.")
    Range("A1").Select

          
End Sub

 

[HSV]

Het deed wat je vroeg.