Plaats van het schermpje op het scherm

[robdgr]

Met

xxx = MsgBox("Staan er vijf lotnummers? ", vbYesNo, "Nog één vraag voordat er wordt afgedrukt")
    If xxx = vbNo Then
    Call opnieuw
End If
    If xxx = vbYes Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("AA100").Select
End If

krijg ik een vraag voorgelegd. Kan ik hierin meenemen waar het schermpje op het scherm komt? Als ik nu handmatig verplaats, is de bijlage het resultaat.

 

[OctaFish]

Als je de plaats wilt kunnen instellen, moet je er een Inputbox van maken. Een Msgbox staat, voor zover ik weeet, altijd in het midden van het scherm. Het effect van je afbeelding komt misschien omdat ScreenUpdating op False staat, of doordat Excel het scherm pas weer bijwerkt als je op OK klikt.

Michel

 

[robdgr]

Michel,

Dank voor je reactie. Ik heb voorlopig als oplossing dat mijn cijferreeks iets buiten het centrum staat. Een inputbox maken, moet ik eens bestuderen.

 

[Wigi]

Een inputbox maken, moet ik eens bestuderen.

Of een zelfgemaakte (simpele) userform.

 

[Warme bakkertje]

Niet simpel, maar met een MsgBox lukt het ook.

 

[robdgr]

Rudi en Wim,

Dank, maar beide oplossingen zijn voor mij te hoog gegrepen. Ik kan leven met de nu gevonden oplossing