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

Forumthread: 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

Anzeige

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!

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige