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!
|