---

Hallo zusammen,

mit

Code:

---

  With ThisDrawing.Utility
        selectBase = .GetPoint(, vbCr & "Erste Ecke:")
        .Prompt vbCr & selectBase(0) & "," & selectBase(1)
        selectPunkt = .GetCorner(selectBase, vbLf & "Zweiter Punkt:")
        .Prompt vbCr & selectPunkt(0) & "," & selectPunkt(1)
    End With

---

diesem Codeschnipsel frage ich einen zu selektierenden Bereich ab.

Hat jemand eine Idee, wie ich in VBA die Größe des Bereichs begrenze? Gemeint ist, der User darf nicht mehr als 500 m in X und Y vom Base-Punkt weg gehen.

Danke im Voraus - Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich mach so etwas über eine Kontrollberechnung und im Fehlerfall msgbox und neue Auswahl

Theoretisch könnte man das auch über die Limits-Property und den Systemvariablen LimMin, LimMax, LimCheck steuern, habe ich aber noch nie getestet.

Aber vielleicht kannst Du es ja testen und Deine Erfahrungen hier einstellen

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Klaus,

sorry bin jetzt erst dazu gekommen, mich wieder damit zu beschäftigen.

Limiten ist zwar theoretisch möglich, führt aber letztlich dazu, dass die Eingabe abgelehnt wird. Letztlich habe ich es so, wie von Dir vorgeschlagen getan und kontrolliere die Eingabe. Im Fehlerfall gibt es eine MsgBox und der Bereich muß neu gewählt werden.

Danke aber für Deine Hilfe.

Mfg - Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP