Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox in UF blinken lassen

Forumthread: TextBox in UF blinken lassen

TextBox in UF blinken lassen
05.06.2013 08:04:00
Mister
Guten Morgen,
wie kann ich ein TextBox 5 Mal blinken lassen beim Starten einer UserForm?
Gruß
Martin

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox in UF blinken lassen
05.06.2013 08:09:22
Klaus
Hallo Martin,
blinken an sich geht nicht. Aber du kannst es simulieren:
me.label1.caption = "Dieser Text blinkt!"
Application.Wait(Now + TimeValue("0:00:01"))
me.label1.caption = ""
Application.Wait(Now + TimeValue("0:00:01"))
me.label1.caption = "Dieser Text blinkt!"
Application.Wait(Now + TimeValue("0:00:01"))
me.label1.caption = ""
Application.Wait(Now + TimeValue("0:00:01"))
me.label1.caption = "Dieser Text blinkt!"
Application.Wait(Now + TimeValue("0:00:01"))
me.label1.caption = ""
Geht bestimmt auch eleganter ... aber die Richtung sollte stimmen.
Gegenfrage: Warum soll der Text überhaupt blinken? Färb lieber den Hintergrund des Labels gelb oder so. Blinken ist unnötig komplex und nervt den User nur unnötig.
Wenn du den User nerven willst, dann spiel gleich eine WAV ab :-)
Grüße,
Klaus M.vdT.

Anzeige
AW: TextBox in UF blinken lassen
05.06.2013 08:32:11
robert
https://www.herber.de/bbs/user/85659.xls
Hi,
aus meinem Fundus...
Bn aber der gleichen Meinung wie Klaus was blinken und färben usw....betrifft.
Gruß
robert

AW: TextBox in UF blinken lassen
05.06.2013 11:29:32
Mister
Danke, es hat geklappt.
Gruß
Martin
;
Anzeige
Anzeige

Infobox / Tutorial

TextBox in UserForm blinken lassen

Schritt-für-Schritt-Anleitung

Um eine TextBox in einer UserForm zum Blinken zu bringen, kannst du den folgenden VBA-Code verwenden. Dieser simuliert das Blinken, indem er den Text in der TextBox 5 Mal ändert. Hier ist eine einfache Anleitung:

  1. Öffne deine Excel-Arbeitsmappe und gehe in den VBA-Editor (Alt + F11).

  2. Erstelle eine neue UserForm oder wähle eine bestehende aus.

  3. Füge eine TextBox (z.B. TextBox1) und ein Label (z.B. Label1) hinzu.

  4. Füge den folgenden Code in das Code-Fenster der UserForm ein:

    Private Sub UserForm_Activate()
   Dim i As Integer
   For i = 1 To 5
       Me.TextBox1.Value = "Dieser Text blinkt!"
       Application.Wait Now + TimeValue("0:00:01")
       Me.TextBox1.Value = ""
       Application.Wait Now + TimeValue("0:00:01")
   Next i
End Sub

  5. Schließe den VBA-Editor und starte die UserForm, um das Blinken zu sehen.

Häufige Fehler und Lösungen

  • Problem: Die UserForm öffnet sich, aber der Text blinkt nicht.

    • Lösung: Stelle sicher, dass du den Code im UserForm_Activate-Ereignis platziert hast. Andernfalls wird der Code nicht automatisch beim Öffnen der UserForm ausgeführt.

  • Problem: Die Anwendung reagiert nicht, wenn der Text blinkt.

    • Lösung: Das Warten (Application.Wait) kann die Anwendung während des Blinkens einfrieren. Überlege, das Blinken mit Timer-Events zu realisieren, um die Benutzeroberfläche reaktionsfähig zu halten.

Alternative Methoden

Anstelle des Blinkens kannst du die Sichtbarkeit des Textes oder die Farbe des Hintergrunds ändern, um Aufmerksamkeit zu erregen. Hier ist ein Beispiel, wie du den Hintergrund der TextBox ändern kannst:

Private Sub UserForm_Activate()
    Dim i As Integer
    For i = 1 To 5
        Me.TextBox1.BackColor = RGB(255, 255, 0) ' Gelb
        Application.Wait Now + TimeValue("0:00:01")
        Me.TextBox1.BackColor = RGB(255, 255, 255) ' Weiß
        Application.Wait Now + TimeValue("0:00:01")
    Next i
End Sub

Diese Methode ist oft weniger störend für den Benutzer.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die TextBox oder andere Steuerelemente in einer UserForm anpassen kannst:

  1. Blinken mit einer TextBox: Verwende den oben genannten Code zum Blinken.
  2. Hintergrundfarbe ändern: Nutze den Code zur Änderung der Hintergrundfarbe, um die Aufmerksamkeit zu erregen, ohne den Nutzer zu stören.
  3. Benutzerdefinierte Animationen: Du kannst auch andere Steuerelemente animieren, indem du ähnliche Techniken anwendest.

Tipps für Profis

  • Verwende Timer: Anstatt Application.Wait zu verwenden, kannst du einen Timer (z.B. Application.OnTime) einsetzen, um eine reaktive UserForm zu erstellen.
  • Benutzerfreundlichkeit: Denke immer daran, dass blinkende Elemente für den Nutzer störend sein können. Überlege, ob es notwendig ist, das Blinken zu verwenden, oder ob es bessere Alternativen gibt.
  • Testen: Teste deine UserForm in verschiedenen Szenarien, um sicherzustellen, dass sie unter verschiedenen Bedingungen gut funktioniert.

FAQ: Häufige Fragen

1. Kann ich das Blinken der TextBox auch mit einer anderen Farbe machen?
Ja, du kannst die Farbe der TextBox oder des Textes jederzeit ändern, indem du die entsprechenden RGB-Werte anpasst.

2. Ist der Code mit allen Excel-Versionen kompatibel?
Der bereitgestellte VBA-Code funktioniert in den meisten modernen Excel-Versionen, die VBA unterstützen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige