Thema Datum  Von Nutzer Rating
Antwort
06.04.2018 14:02:59 puddu
NotSolved
06.04.2018 14:46:42 Mackie
NotSolved
06.04.2018 14:59:25 Mackie
NotSolved
Blau Endlosschleife mit Worksheet_Calculate
10.04.2018 16:48:49 puddu
NotSolved
10.04.2018 17:37:02 Mackie
NotSolved
10.04.2018 17:43:43 Mackie
NotSolved
10.04.2018 18:11:14 puddu
Solved

Ansicht des Beitrags:
Von:
puddu
Datum:
10.04.2018 16:48:49
Views:
509
Rating: Antwort:
  Ja
Thema:
Endlosschleife mit Worksheet_Calculate

Hallo Macki

Entschuldige die späte Antwort, habe momentan sehr viel um die Ohren. Zuerst mal Danke für deine Antworten.

Zu deinem ersten Post:

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.



Zu deinem zweiten Post:

Ich habe mal eine verinfachte Version mit Zufallszahlen anstatt den Zahlen der Kamera erstellt.
https://www.dropbox.com/s/5i048ljx6vjyzlf/Messen.xlsm?dl=0
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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.04.2018 14:02:59 puddu
NotSolved
06.04.2018 14:46:42 Mackie
NotSolved
06.04.2018 14:59:25 Mackie
NotSolved
Blau Endlosschleife mit Worksheet_Calculate
10.04.2018 16:48:49 puddu
NotSolved
10.04.2018 17:37:02 Mackie
NotSolved
10.04.2018 17:43:43 Mackie
NotSolved
10.04.2018 18:11:14 puddu
Solved