Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform positionieren

Forumthread: Userform positionieren

Userform positionieren
02.11.2003 18:17:06
Hergen Westermann
Hallo liebe Helfer,

ich möchte eine Userform gleich beim Start in die linke obere Ecke setzen.
Die Startup-Position steht auf Manuell, und in Initialize habe Me.Top = 10 und me.Left = 10 geschrieben. Leider ohne Wirkung.
Geht es doch ???

Für Hilfe wäre ich euch sehr dankbar.

Hergen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform positionieren
02.11.2003 18:23:21
Hajo_Zi
Hallo Hergen

Option Explicit


Private Sub UserForm_Initialize()
With UserForm1
' 0: Manuell;
' 1: Fenstermitte
' 2: Bildschirmmitte
' 3: Windows-Standard
.StartUpPosition = 0 'links oben
.Top = 0
.Left = 0
End With
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: Userform positionieren
02.11.2003 19:11:36
Hergen Westermann
Hallo Hajo,

Wie ich in meiner Anfrage bereits geschrieben habe, bleibt genau dies ohne Wirkung!

Hergen
AW: Userform positionieren
02.11.2003 19:12:55
Hajo_Zi
Hallo Hergen

bei mir geht es Fehlerfrei

1. die meisten haben hier keine Glaskugel
2. die meisten haben kleinen Heiligenschein
3. die meisten können nicht auf Deinen Rechner schauen

für alle diese Leute ist die Antwort schneller erstellt, wenn Du den relevanten Code postest.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: Userform positionieren
02.11.2003 19:25:32
Hergen Westermann
Hallo Hajo,

das hat nichts mit einer Glaskugel zu tun, sondern nur damit, ob man die gepostete Frage liest. Da steht es doch genau drin!!!

Die StartUpPosition ist manuell gesetzt (per Code nützt es aber auch nichts).

Der relevante Code lautet


Private Sub UserForm_Initialize()
Me.Top = 10
Me.Left = 10
End Sub


Hergen
Anzeige
AW: Userform positionieren
02.11.2003 19:40:54
K.Rola
Hallo,

versuch doch mal den Code in


Private Sub UserForm_Activate()
Me.Left = 10
Me.Top = 10
End Sub


Gruß K.Rola
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Userform in Excel VBA Positionieren


Schritt-für-Schritt-Anleitung

Um eine Userform in Excel VBA zu positionieren, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11 in Excel, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Erstelle eine neue Userform:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt, wähle "Einfügen" und dann "UserForm".
  3. Setze die StartUpPosition:

    • Füge den folgenden Code in das UserForm_Initialize-Ereignis ein:
    Private Sub UserForm_Initialize()
       With Me
           .StartUpPosition = 0 ' Manuelle Position
           .Top = 10
           .Left = 10
       End With
    End Sub
  4. Füge die UserForm deinem Projekt hinzu:

    • Schließe den VBA-Editor und teste die Userform in Excel.

Häufige Fehler und Lösungen

  • Problem: Die Userform wird nicht in der gewünschten Position angezeigt.

    • Lösung: Stelle sicher, dass die StartUpPosition auf 0 gesetzt ist und die Top und Left Werte korrekt eingegeben sind.
  • Problem: Der Code in UserForm_Initialize hat keine Wirkung.

    • Lösung: Überprüfe, ob du den Code tatsächlich im richtigen Ereignis (Initialize) platziert hast und nicht im UserForm_Activate.

Alternative Methoden

Eine alternative Methode, um die Position der Userform festzulegen, ist die Verwendung des UserForm_Activate-Ereignisses:

Private Sub UserForm_Activate()
    Me.Left = 10
    Me.Top = 10
End Sub

Diese Methode sorgt dafür, dass die Userform bei jeder Aktivierung an die gewünschte Position verschoben wird, was hilfreich sein kann, wenn die Position dynamisch angepasst werden muss.


Praktische Beispiele

Hier ist ein einfaches Beispiel, das zeigt, wie du die Userform in die linke obere Ecke des Bildschirms setzen kannst:

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0 ' Manuelle Position
    Me.Top = 0
    Me.Left = 0
End Sub

Wenn du die Userform auf eine andere Position setzen möchtest, ändere die Werte für Top und Left entsprechend.


Tipps für Profis

  • Nutze die Me-Anweisung, um auf die aktuelle Userform zuzugreifen. Dies macht deinen Code flexibler und einfacher zu warten.
  • Teste deinen Code in verschiedenen Excel-Versionen, um sicherzustellen, dass die Userform position in allen Versionen wie erwartet funktioniert.
  • Dokumentiere deine Codezeilen, um anderen (oder dir selbst) die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Frage
Wie setze ich die StartUpPosition der Userform auf die Mitte des Bildschirms?
Antwort: Setze Me.StartUpPosition = 1 (Fenstermitte) im UserForm_Initialize-Ereignis.

2. Frage
Was mache ich, wenn meine Userform immer noch nicht an der gewünschten Position erscheint?
Antwort: Überprüfe alle anderen Codezeilen, die die Position der Userform beeinflussen könnten, insbesondere im UserForm_Activate-Ereignis.

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