Zum Hauptinhalt springen

Wie lässt man eine Form in Excel kontinuierlich blinken?

Author: Siluvia Last Modified: 2025-08-06

Wenn Sie möchten, dass eine Form in einem Arbeitsblatt kontinuierlich blinkt, zeigt Ihnen dieser Artikel, wie das geht.

Eine Form mit VBA-Code wiederholt blinken lassen


Eine Form mit VBA-Code wiederholt blinken lassen

Um im Arbeitsblatt einen blinkenden Formeffekt zu erstellen, gehen Sie bitte wie folgt vor.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Eine Form im Arbeitsblatt wiederholt blinken lassen

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Hinweise:

1) Im Code ist new der Name der Form, die Sie blinken lassen möchten. Bitte ändern Sie es entsprechend Ihren Anforderungen.
2) 00:00:01 bedeutet, dass die Form jede Sekunde blinken wird.

3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

4. Fügen Sie eine Schaltfläche in das Arbeitsblatt ein, indem Sie auf Entwickler > Einfügen > Schaltfläche (Formularsteuerelement) klicken, wie im folgenden Screenshot gezeigt.

A screenshot of the 'Insert Button' option in Excel

5. Wählen Sie im erscheinenden Dialogfeld Makro zuweisen den Namen Flash im Feld Makroname aus und klicken Sie dann auf die Schaltfläche OK.

A screenshot of the 'Assign Macro' dialog box in Excel with the Flash macro selected

6. Ändern Sie dann den Anzeigetext auf der Schaltfläche nach Bedarf. In diesem Fall ändere ich den Anzeigetext in Start Blinken, wie im folgenden Screenshot gezeigt.

A screenshot of the button in Excel with text 'Start blinking' displayed

7. Wiederholen Sie die obigen Schritte 4 und 5, um eine neue Schaltfläche einzufügen und das Makro StopIt dieser Schaltfläche zuzuweisen.

8. Ändern Sie den Anzeigetext dieser neuen Schaltfläche.

Sie sehen nun zwei Schaltflächen, die unterschiedlichen Makros zugewiesen sind, im Arbeitsblatt eingefügt. Siehe Screenshot:

A screenshot showing two buttons in Excel: 'Start blinking' and 'Stop blinking'

Ab jetzt beginnt die Form beim Klicken auf die Schaltfläche Start Blinken mit verschiedenen Farben zu blinken. Wenn Sie das Blinken stoppen möchten, klicken Sie bitte auf die Schaltfläche Blinken stoppen.


Verwandter Artikel:

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!