method Range geeft foutmelding sinds overstap naar Excel 2016

[train5]

In onderstaande functie wordt er sinds Excel 2016 volgende fout gegenereerd:

Fout 28 tijdens uitvoering: Onvoldoende stackruimte

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If blnNoNest = False Then
        If Selection.Address <> "$E$5" Then
            Range("IV2").Value = "A1" 'Force requery if data changed
        Else
            Range("E5").Value = UCase(Range("E5").Value) 'Language code in upper case
        End If
    End If
End Sub

De verwijzing naar de bibliotheek van Excel in Office is toegevoegd, daar zal het niet aan liggen.

 

[edmoor]

En welke versie van Office gebruikte je eerder? Doe deze eens zo:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False    
    If blnNoNest = False Then
        If Selection.Address <> "$E$5" Then
            Range("IV2").Value = "A1" 'Force requery if data changed
        Else
            Range("E5").Value = UCase(Range("E5").Value) 'Language code in upper case
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[train5]

Vorige versie was Office 2010

 

[edmoor]

En heb je de wijziging al getest?

 

[train5]

Dit ziet er beter uit. Alvast bedankt.