Opgelost invoerformulier rechts laten verschijnen in sheet

[sponsken]

is het mogelijk om het invoerformulier aan de rechtse kant van de sheet te laten verschijnen zodat dit niet over mijn tabel komt ?
nu kan ik dit enkel in het midden of linksboven laten verschijnen

 

[HSV]

Speel wat met de getallen.

Sub FormulierOpenen()
 With frmaankoop
  .Left = 700
  .Top = 150
  .Show
 End With
End Sub

 

[AHulpje]

Of:

Sub FormulierOpenen()
    With frmaankoop
        .Left = Application.Left + Application.Width - .Width
        .Top = Application.Top + 100
        .Show
    End With
End Sub

Of, als je het formulier ongeacht de grootte en locatie van het Excel window, tegen de rechterkant van het beeldscherm wilt hebben:

Sub FormulierOpenen()
    Application.WindowState = xlMaximized
    windWidth = Application.Width
    Application.WindowState = xlNormal
    With frmaankoop
         .Left = windWidth - .Width
        .Top = Application.Top + 100
        .Show
    End With
End Sub

 

[sponsken]

heb de code in de module gezet maar werkt niet
krijg fout variabele windwidth is niet gedefinieerd

 

[HSV]

Recht voor het beeldscherm gaan zitten.

 

[sponsken]

probleem opgelost met:

Private Sub UserForm_Activate()

With Application
Top = .Top + .Height - Height - 300
Left = .Left + .Width - Width - 100
End With

End Sub