Was soll denn das?
Set Xrg = Range("AE6")
If Not Intersect(Xrg, Range("AE6")) Is Nothing Then
ist das gleiche wie:
If Not Intersect(Range("AE6"), Range("AE6")) Is Nothing Then
da
Xrg = Range("AE6") gesetzt wurde!
Ergebnis: immer true
Das habe ich aus dem Internet, sollte den Zweck haben, dass der Code nur dann ausgeführt wird, wenn sich die Zelle AE6 ändert. Aber ja macht keinen Sinn.
<strong>Zu deinem zweiten Post:
</strong>Ich habe mal eine verinfachte Version mit Zufallszahlen anstatt den Zahlen der Kamera erstellt.
Ich musste das Makro "Messen" auch in ein Modul schreiben, da er sonst meldete, dass das Sub nicht existiere.
Beim Wert "0" zeigt die Funktion auch den Wert "0" an. Wechselt die Zelle auf den Wert "1", gibt die Funktion "#NAME" an
Grüsse
Patrick