Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmten Text blinken lassen

bestimmten Text blinken lassen
08.07.2008 09:50:47
Maris
Hallo leute,
wie kann ich den Text von mehreren bestimmten Zellen blinken lassen, bis in Zelle A1 z.B.: Der Wert: "Vielen Dank!" erscheint.
Gruß
Maris

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auf Hajo's Seite
08.07.2008 13:16:49
Maris
Das Problem ist aber das er mit bestimmten Wert abschlaten soll und nicht bei doppelclick! Ausserdem soll der Text blinken und nicht die Zelle. Aber trotzdem Danke!

AW: auf Hajo's Seite
08.07.2008 13:20:21
Hajo_Zi
Hallo Maris,
ändere den Hintergrund .Interior.ColorIndex auf .Font.ColorIndex und der Text blinkt. Und bei bestimmten Wert abschalten ist schon auf der Seite.

AW: auf Hajo's Seite
08.07.2008 13:23:11
Maris

Dim NextTime As Date
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
Dieser Cod funktioniert leider nicht! Wenn die Bedingung erfüllt ist schaltet er nicht ab.
With Cells(5, 2).Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash"
Application.OnTime NextTime, "Flash", schedule:=False
Cells(5, 2).Font.ColorIndex = xlAutomatic
End Sub



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Calculate
If Cells(21, 15).Value  "Thank you!" Then
Flash
Else
StopIt
End If
End Sub


Anzeige

199 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige