Office: Userform bei größenänderung neu in Fenstermitte positionieren

Hallo,

habe ein Userform die sich an die Größe meiner Listbox anpasst.
Nun hätte ich gerne das sich die Userform neu in der Fenstermitte positioniert.

Geht das irgendwie oder ist das hoch kompliziert?

VG Christian

:)

 

Hallo Christian,

halte ich für überflüssig. Da ein UserForm mit der Maus frei positioniert werden kann, ist es doch egal, wo es sich öffnet.

 

Hallo Klaus-Dieter,

das ist schon Richtig. Bei ersten öffnen ist es ja richtig positioniert.
Aber meiner Listbox wird ein suchergebniss angezeigt. Und je mehr treffer erreicht werden umso länger die listbox. Je nach größe der Listbox verändert sich auch die größe meiner Userform. Sie passt sich an. Ist die Listbox sehr lange, wird sie unten abgeschnitten und ich nicht mehr an die unteren ergebnisse ran.
Das sieht dann wie im angehängten Bild aus.
Und ich hätte nun gerne wenn die das es sich nach der Suche wieder in der Fenstermitte positioniert.
Auch wenn es dir überflüssig erscheint, ich hätte es gerne so. *Smilie
Da ich nichts im Netz gefunden habe bitte ich euch um Hilfe. Wenn mir jemand helfen will, dann Herzlichen Dank wenn nicht dann ist das auch okay.
Ein Versuch ist es wert.
Vg Christian

 

Hallo Christian,

da würde ich doch das Listenfeld mit einer festen Größe verwenden und mit Rollbalken arbeiten.

 

Hallo

speichere dir die Top & Lefteigenschaft beim Aufruf der
Userform und setze die Eigenschaften dann wieder
auf die Ausgangsdaten

MfG Tom

 

\@ Klaus-Dieter: Diese Variante hatte ich vorher schon, allerdings nervt mich das ich in der Listbox dann nicht mit dem Mausrad scrollen kann. Hab mal gekuckt ob man das irgendwie machen kann. Scheint aber recht kompliziert also hab ich mir das ausgedacht.

@Tom: Ich bin kein Genie *wink.gif*, allerdings versteh ich das so das ich die Userform wieder an die Gleiche stelle schiebe, an der sie sowieso schon beim ersten Aufruf ist. Also würde sie an der selben stelle verweilen. Hm...

 

Hallo

sorry hab es andersherum verstanden
dann musst du eben die neue height & width ermitteln
und dann eben die top & left dementsprechend anpassen

MfG Tom

 

Danke Tom,
dann muss ich das wohl so machen.
ich dachte nur es geht evtl über nen Befehl wie z.b. bei der Startposition.
Vg und schönen Abend

 

Im Anhang eine Spielerei.
Das, was der CommandButton tut, kannst du im Code direkt hinter den Part stellen, der deine Listbox gefüllt und die Höhe neu gestellt hat.

Aber bitte bedenken, wenn die Liste länger (höher) wird, als dein Bildschirm anzeigen kann, werden uU. Buttons verdeckt, die du nicht mehr erreichst.
Wenn dein Cancel/Beenden Button nicht mit Cancel = true versehen ist (reaktiv auf die ESC-Taste), ist es ... blöd.

Wofür auch immer. Es ist eigentlich ganz einfach.

Code: