Das Archiv des Excel-Forums
UserForm Zellengenau ausrichten
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: UserForm Zellengenau ausrichten
von: Thomas
Geschrieben am: 02.10.2003 09:51:35
Hallo,
gibt es eine Möglichkeit in Excel 97 eine Userform beim Aufruf zellengenau auszurichten?
Beispiel: Linke ober Ecke der Userform soll an Zelle A1 ausgerichtet sein.
Viele Grüße/Thomas
Betrifft: AW: UserForm Zellengenau ausrichten
von: Hans W. Herber
Geschrieben am: 02.10.2003 10:12:35
Hallo Thomas,
nein, Du hast nur die Optionen:
- 1 - Fenstermitte
- 2 - Bildschirmmitte
- 3 - Windows Standard
gruss hans
Betrifft: AW: UserForm Zellengenau ausrichten
von: Thomas
Geschrieben am: 02.10.2003 10:16:22
Schade, danke Hans!
Betrifft: AW: UserForm Zellengenau ausrichten
von: heinz
Geschrieben am: 02.10.2003 11:44:50
und was ist mit?
Sub a()
UserForm1.Left = Tabelle1.Cells(10, 10).Left
UserForm1.Show
End Sub
ìst zwar nicht ganz genau - aber wird wohl brauchbar sein, oder?
Betrifft: AW: UserForm Zellengenau ausrichten
von: Hans W. Herber
Geschrieben am: 02.10.2003 11:48:35
... es funktioniert jedenfalls bei XL2000 nicht, bei XL97 bestimmt auch nicht und bei XP weiss ich nicht.
gruss hans
Betrifft: AW: UserForm Zellengenau ausrichten
von: heinz
Geschrieben am: 03.10.2003 09:53:06
ich arbeite mit xl2000 - früher 97
mit 2000 geht es sicher, hab ich ja probiert
und lang her (also ich glaube noch mit xl97):
ich hatte mal die aufgabe eine userform so zu starten, dass sie nicht
geschlossen werden konnte, damit man nicht die anwendung dahinter
sieht - das ganze für verschiedene bildschirme
habe dann mit
application.windowstate.xlmaximize
und
userform1.left=0
userform1.top=0
userform1.width=application.width
userform1.height=application.height
usw. gearbeitet
das ging und geht heute noch
Betrifft: AW: UserForm Zellengenau ausrichten
von: Hans W. Herber
Geschrieben am: 03.10.2003 10:01:05
... nun, ich habe einfach den von Dir in der vorigen Nachricht geposteten Code in die Zwischenablage übernommen und getestet. Das Ergebnis findest Du hier:
https://www.herber.de/bbs/texte/test_uf.xls
Wenn die UserForm links oben erscheint, stifte ich 100 Pfund Kamillentee.
gruss hans
Betrifft: AW: UserForm Zellengenau ausrichten
von: heinz
Geschrieben am: 03.10.2003 11:03:26
nun - ich gebs zu - kein kamillentee also
zuerst muss die startup position auf manuell gestellt werden
also
Sub a()
UserForm1.StartUpPosition = 0
UserForm1.Left = Tabelle1.Cells(10, 10).Left
UserForm1.Show
End Sub
Betrifft: korrektur
von: heinz
Geschrieben am: 03.10.2003 10:55:19
habs nochmal ausprobiert:
zuerst mal:
Sub herb()
UserForm1.Show
End Sub
und weiter:
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
UserForm1.Left = 0
UserForm1.Top = 0
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
End Sub
beispiel dazu:
https://www.herber.de/bbs/user/1272.xls
und die zellposition kann ja auch rausgekriegt werden:
UserForm1.Left = Tabelle1.Cells(zeile, spalte).Left + 20
UserForm1.Top = Tabelle1.Cells(zeile, spalte).Top + 100
diese addierten werte sind nur behelfe
die zellposition wird von zelle a1 linke obere ecke zurückgegeben
die userform position von der anwednungsfensterecke
darum die addierten werte
ließe sich vielleicht auch noch ermitteln, damits auch bei anderen fenstern
funktionieren tät
bastelbeispiel hierzu:
https://www.herber.de/bbs/user/1274.xls
Betrifft: AW: korrektur
von: Hans W. Herber
Geschrieben am: 03.10.2003 10:58:53
Hallo Heinz,
tut mir leid, aber das erfüllt nur vermeintlich den Zweck. Die UserForm wird auf Application-Größe gesetzt, left und top sind aber außen vor.
gruss hans
Betrifft: AW: korrektur
von: heinz
Geschrieben am: 03.10.2003 11:09:03
ja schon beim ersten beispiel
aber hier kommts doch klar raus, dass es geht
agesehen von der ungenauigkeit wenn zb sybolleisten eingefügt werden usw
darum kümmere ich micht noch
https://www.herber.de/bbs/user/1274.xls
Betrifft: scheint erledigt!? ot
von: heinz
Geschrieben am: 03.10.2003 12:32:55
Excel-Beispiele zum Thema " UserForm Zellengenau ausrichten"