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
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:
Öffne die Excel-Datei und gehe zu dem Arbeitsblatt, wo Du den CommandButton hinzufügen möchtest.
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“.
Füge einen CommandButton hinzu: Klicke im Entwicklertools-Reiter auf „Einfügen“ und wähle den „CommandButton“ aus. Platziere ihn auf dem Arbeitsblatt.
Öffne den VBA-Editor: Klicke mit der rechten Maustaste auf den CommandButton und wähle „Code anzeigen“.
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
Schließe den VBA-Editor und gehe zurück zu Excel.
Teste den CommandButton: Gib einen Wert über 100 in die Zelle B1 ein und klicke auf den Button.
Fehler: Der CommandButton blinkt nicht.
Fehler: Der CommandButton blinkt, aber die Farbe ändert sich nicht.
Range("B1").Value > 100 richtig funktioniert und dass der Code in der CommandButton_Click-Subroutine platziert ist.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.
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.
Application.OnTime-Methode, um das Blinken noch flexibler zu gestalten, wenn Du komplexere Zeitabläufe benötigst.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.