Userform plazieren

Forumthread: Userform plazieren
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform plazieren

Userform plazieren

30.01.2015 11:17:45

Wolfgang

Hallo alle gemeinsam,
ein neues Problem:
wenn eines der Arbeitsblätter (KasiererListe1, KasiererListe2 usw.) aktiviert wird, wird die Userform 1 eingeblendet. Aufgrund unterschiedlicher Zoomeinstellungen möchte ich diese an einer bestimmten Stelle haben. Am besten wäre es, wenn sie an die
Zelle AA4 gekoppelt wäre. Die StartUpPosition hab ich auf 0 gestellt.
Gibt es dazu vielleicht schon eine Idee?
Danke im Voraus
Grüße von Wolfgang
aus dem Erzgebirge

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform plazieren

30.01.2015 11:31:00

yummi
AW: Userform plazieren

30.01.2015 11:56:28

Wolfgang
AW: Userform plazieren

30.01.2015 12:09:19

Wolfgang
AW: Userform plazieren

30.01.2015 12:21:47

yummi
AW: Userform plazieren

30.01.2015 14:04:00

Wolfgang
AW: Userform plazieren

30.01.2015 17:44:16

Nepumuk

AW: Userform plazieren

30.01.2015 11:31:00

yummi

Hallo Wolfgang,
schaum mal hier https://www.herber.de/forum/archiv/332to336/332098_Userform_positionieren.html
Gruß
yummi

AW: Userform plazieren

30.01.2015 11:56:28

Wolfgang

Hallo yummi,
es bleibt dabei, die Userform bleibt in der linken oberen Ecke.
Hier das Makro dazu:
Option Explicit

Private Sub Worksheet_Activate()
With UserForm1
.Top = 60
.Left = 155
.Show
End With
End Sub

Grüße von Wolfgang
aus dem Erzgebirge

AW: Userform plazieren

30.01.2015 12:09:19

Wolfgang

Hallo yummi,
hab mich geirrt. Es funktioniert. Kann man das auch an eine Zelle fest machen?
Grüße von Wolfgang
aus dem Erzgebirge

AW: Userform plazieren

30.01.2015 12:21:47

yummi

Hallo Wolfgang,
probier mal so etwas:


Private Sub UserForm_Initialize()
Dim lStart
Dim oStart
lStart = Windows(1).VisibleRange.Cells(1, 1).Left
oStart = Windows(1).VisibleRange.Cells(1, 1).Top
Me.StartUpPosition = 0
Me.Left = Range("H10").Left - lStart + 22
Me.Top = Range("H10").Top - oStart + 138
End Sub

wenn du allerdings 2 monitore benutzt und diesen wechelst, dann geht es glaube ich nicht.
Gruß
yummi

AW: Userform plazieren

30.01.2015 14:04:00

Wolfgang

Hallo yummi,
es bringt mir leider nichts. Bei unterschiedlichen Zoomeinstellungen bleibt die Userform an der gleichen Stelle auf den Schirm.
Danke für die Mühe und
Grüße von Wolfgang
aus dem Erzgebirge

AW: Userform plazieren

30.01.2015 17:44:16

Nepumuk

Hallo Wolfgang,
schau mal hier: http://www.office-loesung.de/ftopic624103_0_0_asc.php
Gruß
Nepumuk