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
Problemstellung
Wie kann ich in eine Userform ein Diagramm einfügen?
Problemstellung
Wie kann ich durch Betätigung einer Schaltfläche in einer UserForm die XL-Dateinamen des aktuellen Verzeichnisses in einem sich ebenfalls in der UserForm befindlichen Listenfeld listen?
Problemstellung
Wie kann ich einen Bereich eines Tabellenblattes nach einem Teilbegriff durchsuchen lassen und die Zelladressen der Fundstellen in einem Listenfeld einer UserForm auflisten lassen?
Problemstellung
Wie kann ich alle Module und UserForms einer Arbeitsmappe löschen und danach die Module und UserForms des aktuellen Unterverzeichnisses laden?
Problemstellung
Wie kann ich in XL8 auf einzelne, vorher durch VBA-Code erzeugte Label zugreifen und deren Caption neu festlegen?
Problemstellung
Wie kann ich eine Liste von Werten ohne Berücksichtigung der Leerzellen und ohne doppelte Werte in eine UserForm-ComboBox einlesen?
Problemstellung
Wie kann ich alle CheckBoxes einer UserForm in eine For/NextSchleife einbinden?
Problemstellung
Wie kann ich verhindern, daß eine UserForm geschlossen wird, bevor ein Textfeld einen Eintrag erhält?