Userform an Zelle ausrichten II

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Userform an Zelle ausrichten II
von: SteffenS
Geschrieben am: 10.04.2005 18:58:36
Hallo und guten Abend,
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
Bild

Betrifft: AW: Userform an Zelle ausrichten II
von: Hajo_Zi
Geschrieben am: 10.04.2005 20:17:47
Hallo Steffen,
siehe Dir mal folgende Datei von Nepumuk an. bei Zellenauswahl erscheint Userform.
https://www.herber.de/bbs/user/20950.xls

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Homepage

Bild

Betrifft: danke Dir,
von: SteffenS
Geschrieben am: 10.04.2005 21:46:28
damit ging es!
MFG
Steffen
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Userform an Zelle ausrichten II"