wier kann ich eine Userform an der linken unteren Ecke der aktiven Zelle ausrichten?
Danke im Voraus.
MFG
Steffen Schmerler
Public Zelle As Range
Ins Tabellenblatt als Code
Private Sub Worksheet_Change(ByVal Target As Range)
Set Zelle = Target
UserForm1.Show
End Sub
In der Userform
Private Sub UserForm_Initialize()
ActiveWindow.ScrollRow = Zelle.Row
UserForm1.Left = Zelle.Left
UserForm1.Top = Zelle.Top + Zelle.Height
End Sub
Die Eingabe Zelle sollte aber im Change Ereignis entsprechend eingeschränkt werden.
Gruß Tino
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Private Sub UserForm_ Initialize()
ActiveWindow.ScrollRow = Zelle.Row
UserForm1.Left = GetSystemMetrics(0) * 0.75 / 2 - UserForm1.Width / 2
UserForm1.Top = GetSystemMetrics(1) * 0.75 / 2
End Sub
Gruß Tino