Userform auf Position
02.05.2003 21:22:38
Eugen
In einem Tabellenblatt möchte ich über einer Zahlenreihe eine Userform positionieren.
Höhe und Breite der Userform ist mit Height, Width festgelegt.
Wie kann ich die Userform auf einen bestimmten Platz positionieren?
Mit StartUpPosition erscheit mir eine genaue Positionierung der Form, auf dem Tabellenblatt nicht möglich.
Ach ja die Userform ist ungebunden.
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal _
hwnd As Long, ByVal fEnable As Long) As Long
Private Sub UserForm_Activate()
Me.Caption = "Ungebundene Userform"
Label1.Caption = "Klicken Sie innerhalb der Tabelle"
Label2.Caption = ""
EnableWindow FindWindow("XLMAIN", vbNullString), True
End Sub
Private Sub cmdBeenden_Click()
Unload Me
End
End Sub
Danke für Eure Hilfe
Eugen
Anzeige