Application.inputbox

[Symphysodon]

Beste forummers,

Is het mogelijk om met de application.inputbox methode type 8, de selectie in de sheet zichtbaar te maken?

Set rng = Application.InputBox("Range:", Type:=8)

Als ik nu een bereik selecteer zie ik alleen in de box de celverwijzing staan, in de sheet zelf is de selectie niet zichtbaar.

Mvg
Marco

 

[roeljongman]

Vermoedelijk moet je dan eerst een .select op de doelcel doen vlak voordat je de inputbox laat zien

dus iets als Range("A1").select of Target.select direct boven de aanroep van je inputbox
A1 dan uiteraard de exact juiste cel.

 

[SjonR]

wat probeer je concreet voor elkaar te krijgen?

 

[edmoor]

Dat kan je zelf doen:

    Set Rng = Application.InputBox("Range:", Type:=8)
    Rng.Select

 

[Symphysodon]

Het geselecteerde bereik wordt getransponeerd verwerkt in een tabel.

 

[Symphysodon]

Zonder userform kan het blijkbaar niet? Ook geen probleem, ik moet dan alleen wat beter mikken om het juiste bereik snel te selecteren.

 

[edmoor]

Ja, kan wel.
Had m'n post al aangepast

 

[Symphysodon]

snap ik, maar ik bedoel tijdens het selecteren en niet na het verlaten van de inputbox

 

[Symphysodon]

Ik heb de methode in een do loop gezet en dan werkt het.

Set RNG = Nothing
Do
   Set RNG = Application.InputBox("Range:", Type:=8)
Loop While RNG Is Nothing

 

[edmoor]

Tijdens het selecteren verschijnt er een streepjesrand om het gelecteerde gedeelte.

 

[Symphysodon]

Precies. Goed genoeg voor mij.

Bedankt allemaal.

 

[Symphysodon]

Ik heb nog wat ontdekt. De inputbox methode werkt alleen goed zonder gebruik van Application.screenupdating=false. Ik had de do loop toegepast in het programma en ik had weer hetzelfde probleem. Met Application.screenupdating=false na de inputbox is Set RNG = Application.InputBox("Range:", Type:=8) voldoende om in ieder geval een streepjesrand om het geselecteerde gedeelte te krijgen tijdens het selecteren.

Sub dt()
Dim RNG As Range

Set RNG = Application.InputBox("Range:", Type:=8)

Application.ScreenUpdating = False

msgbox ".."

Application.ScreenUpdating = true

End sub