Laden van excel file loopt vast bij open?

[deswertn]

Dag

Ik heb een excel file gemaakt die 3 kleuren moet optellen. Aan de hand van een code 'onder alt F11' die ik heb gevonden op het internet. Maar wanneer ik deze code gebruikt loopt mijn excel soms even vast. Kan er iemand bij hier bij helpen hoe dat dit probleem zich voorkomt?

De optelling gebeurd onderaan op de pagina.

Bekijk bijlage 244359

 

[edmoor]

Maak er eens dit van:

Function TelAchtergrondkleur(Bereik As Range, Reference As Range)
    Dim Cl As Range
    Dim ClrCount As Long
    Dim lastrow As Long
    
    With ActiveSheet
        lastrow = .Cells(.Rows.Count, Bereik.Column).End(xlUp).Row
    End With
    
    Application.Volatile
    For Each Cl In Bereik
        If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
            ClrCount = ClrCount + 1
        End If
        If Cl.Row = lastrow Then
            TelAchtergrondkleur = ClrCount
            Exit Function
        End If
    Next
End Function

 

[deswertn]

Bedankt het werkt perfect nu!