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"