Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Position untergeordneter Userforms bestimmen

Forumthread: Position untergeordneter Userforms bestimmen

Position untergeordneter Userforms bestimmen
12.07.2019 15:51:39
Sven
Hallo zusammen,
mein Makro enthällt drei nicht-modale Userforms und ich arbeite an einem Rechner mit zwei Bildschirmen. Nun ist es leider so, dass nach dem Hin- und Herschieben des Hauptfensters die weiteren Fenster sowie die Messageboxen irgendwo auftauchen, aber nicht mittig über dem Hauptfenster. Das hätte ich gerne. Hat da jemand eine Idee, die auch Auflösung-unabhängig funktioniert?
Danke und Grüße
Sven
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Position untergeordneter Userforms bestimmen
13.07.2019 12:13:49
EtoPHG
Hallo Sven,
Userforms und Messageboxen sind aber zwei verschiedene Paar Stiefel. IMHO ist die Position von Messageboxen nur aufwändig über API-Programmierung mögliche. Für Userformen findest du ein Codebeispiel in dieser Beispielmappe, das du adaptieren könntest.
Gruess Hansueli
Anzeige
AW: Position untergeordneter Userforms bestimmen
18.07.2019 08:05:41
Sven
Hallo Hansueli,
danke für das Feedback. Das Userform der Beispielmappe öffnet stets oben links, egal wo ich es zuvor hinschiebe. Schade.
Grüße
Sven
AW: Position untergeordneter Userforms bestimmen
18.07.2019 10:28:49
EtoPHG
Hallo Sven,
Bei mir nicht. Die UF öffnet sich an der Position, die sie beim Schliessen (mit den Exit-Button) inne hatte. Ich kann mangels Version nicht auf XL 2010 testen.
Hast du ev. keine Schreibrechte auf das Verzeichnis, in dem die Mappe liegt?
Gruess Hansueli.
Anzeige
AW: Position untergeordneter Userforms bestimmen
18.07.2019 10:35:22
mmat
Hallo Sven,
du könntest ein Userform programmieren, das die Aufgabe einer Messagebox erfüllt. Das lässt sich leicht über dem aufrufenden Form plazieren.
Beispiel: In dem Userform "Aufrufer" wird ein Knopf betätigt um die Meldung im Userform "Melder" anzuzeigen:
Private Sub CommandButton4_Click()
Load Melder
Melder.Meldung = "Was nun, ja oder nein?"
Melder.Show
End Sub
Der Code von der Massagebox:
Option Explicit
Public Meldung As String
Private Sub CommandButton2_Click()
Me.Hide: Unload Me
End Sub
Private Sub UserForm_Activate()
Dim x As Long, y As Long, h As Long, w As Long
x = Aufrufer.Left
y = Aufrufer.Top
h = (Aufrufer.Height - Me.Height) / 2
w = (Aufrufer.Width - Me.Width) / 2
Me.Left = x + w
Me.Top = y + h
Label1 = Meldung
End Sub
vg, mm
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige