---

Hallo zusammen,

ich frag' mich grad, ob es möglich ist,
eine Optionsabfrage statt Inputbox in der Befehlszeile abzuklären.

Also ich mein mal sinnbildlich, statt:

Code:

---

...
iBox=inputbox("0: nur Raumname - 1: Raumname und Fläche - 2: Raumname und Fläche und Umfang", _
"Eingabe: 0:1:2", "0")
if ibox="" xor ibox<>"0" xor ibox<>"1" xor ibox<>"2" then exit sub
select case ibox
        case 0: msgbox "bla"
        case 1: msgbox "blabla"
        case 2: msgbox "ja auch"
end select
...

---

in der Befehlszeile halt: 0nur_Name, 1und Fläche, 2und Umfang:<0>
... erscheint. Ist das eigentlich via 'vba_teufel' machbar?

lg Nancy
--
Mit dem guten Geschmack ist es ganz einfach:
Man nehme von allem nur das Beste.     

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

---

Hi Nancy,

das sollte es tun.

Code:

---

Sub test()

ans = ThisDrawing.Utility.GetString(False, "nur Raumname <0>, " & _
    "Raumname und Fläche <1> Raumname und Fläche und Umfang <3> :")
Debug.Print ans

End Sub

---

Gruß TP

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

---

Abend TP ;-)

puhh ..., looks like recht easy ...
Sooooowas hab' noch nie probiert - morgen früh' - ich geb' nochmal Bescheid ob klappte.
Vielen Dank erstmal und nachti bis morgen 

lg Nancy
--
Langeweile ist eine Sünde, für die es keine Absolution gibt. (Wilde)

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

---

Moin TP,

sodele, hab' das mal probiert > funktioniert.
Nur ehm, um die If-Abfrage komm' ich wohl damit aber nicht rum,
so wie ich das sehe, kann man da ja auch alles Mögliche eintippsen.

Aber nochmal matsch Danke 

lg Nancy

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

---

Hallo Nancy,

auf die Eingabe vom User musst Du so oder so reagieren.
GetString ist halt wie eine Inputbox in der BefehlsZeile.

Gruß TP

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

---

Hab's bald geahnt ...
und ich dacht das bringt paar lustige features mehr mit ;-)

thx nochmal und nice w/e
lg Nancy

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