Waarom start mijn macro niet automatisch?

[TBee]

Hallo, als nieuw compleet onervaren gebruiker van Excel VBA heb mijn eerste stappen gezet ,
en voor mijn vrouw een week planning gemaakt.
Op zich werkt hij prima maar ik blijf tegen een probleempje aanlopen.
De macro die ik heb gemaakt werkt alleen als je een run commando geef.

Wie o wie helpt deze NONO !

Sub BalieBezetting()
Dim ival As Integer
        With ActiveSheet.Range("C7:C14")
        ival = Application.WorksheetFunction.CountIf(Range("C7:C14"), "CB")
        If ival >= 2 Then
        MsgBox ("Selecteer andere medewerker")
    End If

End With
End Sub

 

[Cobbe]

Zet deze achter je werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ival As Integer
    If Not Intersect(Target, Range("C7:C14")) Is Nothing Then
        With ActiveSheet.Range("C7:C14")
            ival = Application.WorksheetFunction.CountIf(Range("C7:C14"), "CB")
            If ival >= 2 Then
                MsgBox ("Selecteer andere medewerker")
            End If
        End With
    End If
End Sub

Deze code loopt indien je iets wijzigt in het bereik C7:C14.

Een sub-macro is een modulemacro en wordt geactiveerd door een buttonklik.

 

[TBee]

Dank U, Dank U.

Beste Cobbe,

Bedankt! Werkt :d:thumb::thumb:

En ehh oh ja, ik zet hem als opgelost