teken voor inputbox

[verluc]

Heb volgende lijn in mijn macro:

y = Application.InputBox(prompt:="Filterwaarde", Type:=2)

Wat ik zou willen is dat deze automatisch ingevuld staat met het teken "<" en dat dus enkele
de waarde is in te vullen ,kwestie van een toets minder te gebruiken.

Met dank voor alle hulp

 

[zapatr]

Probeer dit:

y = Application.InputBox("Filterwaarde", , "<")

 

[verluc]

Zapatr,

Werkt inderdaad, doch het < teken staat in zwart en ik dien eerst een spatie verder te gaan.
Kan dit rechtstreeks?

 

[edmoor]

y = Application.InputBox(prompt:="Filterwaarde: < ", Type:=2)
y = "< " & y

 

[verluc]

Sotty Edmoor, maar ik krijg geen < teken in mijn inputbox
Misschien nog een kleine aanpassing ?

 

[edmoor]

Die hoort via mijn methode ook niet in de input. Je hebt hem alleen in de variabele y nodig.

 

[verluc]

Zeer bedankt Edmoor.
Werkt inderdaad zoals gewenst.
Nogmaals dank

 

[edmoor]

Graag gedaan. Als je dat liever hebt kan het ook op 1 regel:

y = "< " & Application.InputBox(prompt:="Filterwaarde: < ", Type:=2)

 

[zapatr]

Als jet het kleiner-dan-teken in de inputbox wil handhaven:

Sub macro1()
SendKeys "{Right}"
y = InputBox("Filterwaarde:", , "< ")
End Sub