Userform an Zelle ausrichten II
10.04.2005 18:58:36
SteffenS
ich brauche nochmal Eure Hilfe!
Und zwar möchte ich eine Userform an einer Zelle ausrichten
Dazu habe ich schon folgenden Code:
Private Sub UserForm_Initialize()
'UF ausrichten
Dim zeile, spalte
zeile = ActiveCell.Row
spalte = ActiveCell.Column
zeile2 = ActiveWindow.ScrollRow
spalte2 = ActiveWindow.ScrollRow
worse_best_key.Left = Cells(zeile, spalte).Left + 20
worse_best_key.Top = Cells(zeile, spalte).Top + 110
End Sub
Das Problem ist nur, dass sobald ich einer Zelle bin die Unterhalb vom Normalen Bildschirm liegt, also z.B.: wenn man gesdrollt hat dann funktioniert dieser Code nicht mehr.
Wie bekomme ich es, dass die Userform immer unterhalb und rechts neben der AktiveZelle positioniert wird?
Vielen Dank
Steffen Schmerler
