Ik ben een beginnende vba er
Ik heb de volgende berekening in mijn VBA staan:

    If rng.Count / numTeam (= geen geheel getal) Then
    MsgBox (rng.Count & " namen zijn niet gelijk te verdelen in " & numTeam & " teams")
    GoTo selecteer
    End If

Als ik deze 2 (rng.count en numteam) op elkaar deel moet het antwoord een geheel getal zijn anders moet de ingave  opnieuw gebeuren.
Dus waarin moet ik (= geen geheel getal) veranderen?

Willem

Dag Wiilem,

Verander deze code:
If rng.Count / numTeam (= geen geheel getal) Then
in:
If rng.Count Mod numTeam <> 0 Then

@LucB

Werkt zoals ik wilde.

Wat kan alles toch eenvoudig zijn (als je het weet.)


Willem