Macro loopt niet door zonder error

[ghenriet]

Goedemiddag Excel experts,

Ik ben bezig met een excel documentje waarin ik een macro heb lopen. Stelt niet voor, maar hij loopt na de eerste regel al niet meer door. Ook geeft hij geen error.

Sub Macro4()

    Range("E42").Select
    Selection.ClearContents
    Range("E35").Select
    Selection.ClearContents
    Range("E26:E33").Select
    Selection.ClearContents
    Range("E14").Select
    Selection.ClearContents
    
    Range("E5").Select
    
End Sub

Kunnen jullie mij helpen en vertellen waar dit aan ligt.

Bij voorbaat dank!:thumb:
Bekijk bijlage voorbeeld.xlsm

 

[Haije]

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$E$82" Then ' FormInname_CEL_Innemer
        Range("FormInname_CEL_PlaatsInname").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0))),"""",INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0)))"
    Else
[COLOR="#FF0000"]    End[/COLOR]
    End If

End Sub

de rode opdracht zorgt er voor dat de macro stopt

 

[edmoor]

En die macro in #1 kan je beter zo doen:

Sub Macro4()
    Range("E14, E26:E33, E35, E42").ClearContents
    Range("E5").Select
End Sub

 

[HSV]

Gewoon rechtstreeks naar de desbetreffende cel ipv naar de cel springen met 'select'.

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Target.Address = "$E$82" Then ' FormInname_CEL_Innemer
        Range("FormInname_CEL_PlaatsInname") = _
        "=IF(ISERROR(INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0))),"""",INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0)))"
    End If
End Sub

Het kan ook met alleen de waarde rechtstreeks in de cel zonder formule, maar die wordt natuurlijk niet automatisch bijgewerkt.

 

[ghenriet]

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$E$82" Then ' FormInname_CEL_Innemer
        Range("FormInname_CEL_PlaatsInname").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0))),"""",INDEX(Lijsten_LST_Beheerders_Plaats,MATCH(FormInname_CEL_Innemer,Lijsten_LST_Beheerders_Handtekening,0)))"
    Else
[COLOR="#FF0000"]    End[/COLOR]
    End If

End Sub

de rode opdracht zorgt er voor dat de macro stopt

Thanks het werkt! Het moest iets kleins zijn natuurlijk