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

UserForm langsam einblenden

Forumthread: UserForm langsam einblenden

UserForm langsam einblenden
Mister-B
Hallo,
auf der Suche nach einem EM 2012 Spielplan auf Excel-Basis habe ich im Netz so einiges gefunden. Bei einem Plan wird eine UserForm von oben bis unten ganz langsam eingeblendet. Weiss jemand wie sowas in VBA geht? Ich weiss leider nicht ob ich den Link hier posten darf.
Gruß
Martin
Anzeige

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

Betreff
Benutzer
Anzeige
..der ist nicht schlecht ! aber..
04.04.2012 19:08:49
robert
Hi,
das Projekt ist Passwort geschützt.
Aber gut gemacht !
Gruß
robert
PS:Tante Google hat mir den Link verraten -EM 2012+Excel - ;-)
AW: ..der ist nicht schlecht ! aber..
04.04.2012 19:20:39
Mister-B
Schade!
Gut gemacht finde ich es auch.
Gruß
Martin
AW: ..der ist nicht schlecht ! aber..
04.04.2012 20:38:59
Tino
Hallo,
vielleicht könnte es so gehen.
Mit der Geschwindigkeit (Sleep 300) und den
Schritten (Me.Top = Me.Top + 10) müsste man noch etwas spielen
um ein gutes Ergebnis zu bekommen.
kommt als Code in UserForm1
Option Explicit 
 
Private Declare Function GetSystemMetrics Lib "user32" _
  (ByVal nIndex As Long) As Long 
 
Dim sngTopSoll As Single 
 
Private Sub UserForm_Activate() 
Do While sngTopSoll > Me.Top 
    Me.Top = Me.Top + 10 
    Me.Repaint 
    DoEvents 
    Sleep 300 
Loop 
End Sub 
 
 
Private Sub UserForm_Initialize() 
sngTopSoll = GetSystemMetrics(1) * 0.75 / 2 - Me.Height / 2 
Me.Left = GetSystemMetrics(0) * 0.75 / 2 - Me.Width / 2 
Me.StartUpPosition = 0 
Me.Top = -Me.Height 
End Sub 
kommt als Code in Modul1
Option Explicit 
 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Gruß Tino
Anzeige
AW: UserForm langsam einblenden
04.04.2012 20:26:54
Mister-B
Hallo Hajo,
das sieht echt klasse aus! Es gibt die UFs das Windows 7 Feeling.
Danke
Martin
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

UserForm langsam einblenden in Excel


Schritt-für-Schritt-Anleitung

Um eine UserForm in Excel langsam einzublenden, kannst du den folgenden VBA-Code verwenden. Dies funktioniert in Excel 2007 und späteren Versionen.

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Füge eine UserForm hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deine Arbeitsmappe)" und wähle Einfügen > UserForm.

  3. Füge ein Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject" und wähle Einfügen > Modul.

  4. Kopiere folgenden Code in die UserForm:

    Option Explicit
    
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    
    Dim sngTopSoll As Single
    
    Private Sub UserForm_Activate()
       Do While sngTopSoll > Me.Top
           Me.Top = Me.Top + 10
           Me.Repaint
           DoEvents
           Sleep 300
       Loop
    End Sub
    
    Private Sub UserForm_Initialize()
       sngTopSoll = GetSystemMetrics(1) * 0.75 / 2 - Me.Height / 2
       Me.Left = GetSystemMetrics(0) * 0.75 / 2 - Me.Width / 2
       Me.StartUpPosition = 0
       Me.Top = -Me.Height
    End Sub
  5. Kopiere folgenden Code in das Modul:

    Option Explicit
    
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  6. Starte die UserForm: Füge einen Button in dein Excel-Arbeitsblatt ein und weise dem Button den Befehl zum Anzeigen der UserForm zu.


Häufige Fehler und Lösungen

  • Fehler: UserForm wird nicht angezeigt.

    • Lösung: Stelle sicher, dass der Befehl zum Aktivieren der UserForm korrekt zugewiesen wurde.
  • Fehler: UserForm erscheint ruckartig.

    • Lösung: Überprüfe die Werte für Sleep und die Schritte in Me.Top = Me.Top + 10. Experimentiere mit den Werten, um die Geschwindigkeit anzupassen.

Alternative Methoden

Eine weitere Möglichkeit, eine UserForm schrittweise einzublenden, ist die Verwendung von Animationen in Excel durch die Verwendung von Shapes oder Bildern, die sich im Hintergrund bewegen. Diese Methode kann jedoch komplexer sein und erfordert zusätzliche Programmierung.


Praktische Beispiele

Wenn du einen EM 2024 Spielplan in Excel erstellen möchtest, kannst du die UserForm verwenden, um zusätzliche Informationen anzuzeigen, wie beispielsweise die Gruppenplatzierungen oder Spielzeiten. Der Code von oben kann leicht angepasst werden, um verschiedene UserForms für unterschiedliche Ereignisse zu erstellen.


Tipps für Profis

  • Experimentiere mit den Werten in Sleep und den Schritten für das Einblenden, um die gewünschte Geschwindigkeit zu erreichen.
  • Du kannst auch andere Steuerelemente in der UserForm hinzufügen, um die Benutzererfahrung zu verbessern, wie z. B. Buttons zur Navigation zwischen verschiedenen Informationen oder Spielplänen.
  • Achte darauf, dass die UserForm auf verschiedenen Bildschirmauflösungen gut aussieht, insbesondere wenn du einen EM Spielplan für unterschiedliche Geräte bereitstellst.

FAQ: Häufige Fragen

1. Funktioniert dieser Code in Excel 2010?
Ja, der Code funktioniert auch in Excel 2010 und späteren Versionen.

2. Kann ich den Code anpassen, um die UserForm schneller oder langsamer einzublenden?
Ja, du kannst die Werte in Sleep und die Schritte für Me.Top anpassen, um die Geschwindigkeit des Einblendens der UserForm zu verändern.

3. Wo kann ich einen EM 2008 Spielplan in Excel finden?
Du kannst online nach Vorlagen suchen oder eigene Vorlagen mit dieser Methode erstellen.

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