Liebe VBA-Forum-Mitglieder,

als Anfänger stehe ich vor folgendem Problem:

In Spalte E (genauer E2:E60) wirft es mir verschiedene Zahlen aus, welche ich dann als Trigger verwenden möchte um eine Prozedur zu starten.

Folgender Code wird dabei verwendet:

Sub Worksheet_Change(ByVal Target As Range)
    If Application.WorksheetFunction.CountIf(Sheets("Tabelle1").Range("E2:E60"), "1") > 0 Then
    Call XY
    Else
        If Application.WorksheetFunction.CountIf(Sheets("Tabelle1").Range("E2:E60"), "2") > 0 Then
        Call XY2
        End If
    End If
End Sub

Wird nun in Bereich E2:E60 die 1 eingezeigt, so klappt der Trigger auch wunderbar und löst die Prozedur XY aus.

Folgt daraufhin jedoch die 2, so wird ebenso die Prozedur XY ausgelöst und nicht die Prozedur XY2.

Kann mir bitte jemand Hilfestellung leisten?

Verstehe leider das Problem nicht und komme nicht weiter...

Im Vorfeld besten Dank!