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

Forumthread: CommandButton blinken lassen

CommandButton blinken lassen
Ronald
Hallo
ich möchte das CommandButton1 rot-weiss blinken lassen, wenn die Formel in B1 einen Wert über 100 errechnet hat.
Ist das möglich?
Danke Ron
Anzeige

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

Betreff
Benutzer
Anzeige
AW: CommandButton blinken lassen
P@ulchen
Hi Ronald,
schau mal hier:
https://www.herber.de/bbs/user/6001.xls
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: CommandButton blinken lassen
Ronald
Super Klasse
Danke und Gruß aus Dresden
Danke für die Rückmeldung! oT
P@ulchen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

CommandButton blinken lassen in Excel


Schritt-für-Schritt-Anleitung

Um einen CommandButton in Excel blinken zu lassen, wenn ein bestimmter Wert in einer Zelle erreicht wird, benötigst Du ein wenig VBA (Visual Basic for Applications). Hier sind die Schritte:

  1. Öffne die Excel-Datei und gehe zu dem Arbeitsblatt, wo Du den CommandButton hinzufügen möchtest.

  2. Aktiviere die Entwicklertools: Wenn das Register „Entwicklertools“ nicht sichtbar ist, gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere das Kästchen für „Entwicklertools“.

  3. Füge einen CommandButton hinzu: Klicke im Entwicklertools-Reiter auf „Einfügen“ und wähle den „CommandButton“ aus. Platziere ihn auf dem Arbeitsblatt.

  4. Öffne den VBA-Editor: Klicke mit der rechten Maustaste auf den CommandButton und wähle „Code anzeigen“.

  5. Füge folgenden Code ein:

    Private Sub CommandButton1_Click()
        Dim i As Integer
        For i = 1 To 10
            If Range("B1").Value > 100 Then
                CommandButton1.BackColor = IIf(CommandButton1.BackColor = vbRed, vbWhite, vbRed)
            End If
            DoEvents
            Application.Wait Now + TimeValue("00:00:01")
        Next i
        CommandButton1.BackColor = vbWhite ' Setzt die Farbe zurück
    End Sub
  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Teste den CommandButton: Gib einen Wert über 100 in die Zelle B1 ein und klicke auf den Button.


Häufige Fehler und Lösungen

  • Fehler: Der CommandButton blinkt nicht.

    • Lösung: Stelle sicher, dass die Formel in B1 tatsächlich einen Wert über 100 ergibt und dass der Code korrekt in den VBA-Editor eingefügt wurde.
  • Fehler: Der CommandButton blinkt, aber die Farbe ändert sich nicht.

    • Lösung: Überprüfe, ob die Bedingung Range("B1").Value > 100 richtig funktioniert und dass der Code in der CommandButton_Click-Subroutine platziert ist.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du auch bedingte Formatierungen in Excel nutzen, um visuelle Hinweise zu geben, jedoch wird dies nicht das Blinken eines CommandButtons ermöglichen. Eine andere Möglichkeit ist die Verwendung von Formeln in Kombination mit Pivot-Tabellen, um die Daten visuell hervorzuheben.


Praktische Beispiele

Ein Beispiel für die Anwendung könnte sein, dass Du einen CommandButton verwendest, um eine Warnung auszugeben, wenn der Wert in B1 über 100 steigt. Du könntest den Button so programmieren, dass er verschiedene Aktionen ausführt, wie das Senden einer E-Mail oder das Öffnen eines Dialogfeldes.


Tipps für Profis

  • Experimentiere mit den Farben und der Blinkgeschwindigkeit, um das Feedback für die Benutzer zu optimieren.
  • Überlege, den blinkenden CommandButton auch in einem UserForm zu verwenden, um eine bessere Benutzeroberfläche zu bieten.
  • Nutze die Application.OnTime-Methode, um das Blinken noch flexibler zu gestalten, wenn Du komplexere Zeitabläufe benötigst.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den CommandButton so einstellen, dass er nur einmal blinkt?
Antwort: Du kannst die Schleife im Code anpassen, indem Du den Wert von For i = 1 To 10 auf For i = 1 To 1 änderst.

2. Frage
Funktioniert dieser Code in allen Excel-Versionen?
Antwort: Ja, der Code sollte in den meisten Versionen von Excel funktionieren, die VBA unterstützen, wie Excel 2010, 2013, 2016 und 2019.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige