bestimmten Text blinken lassen

Forumthread: bestimmten Text blinken lassen

08.07.2008 11: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

AW: auf Hajo's Seite

08.07.2008 14:51:31

hary
AW: auf Hajo's Seite

08.07.2008 15:16:49

Maris
AW: auf Hajo's Seite

08.07.2008 15:20:21

Hajo_Zi
AW: auf Hajo's Seite

08.07.2008 15:23:11

Maris

AW: auf Hajo's Seite

08.07.2008 14:51:31

hary

Hallo Maris
Geh mal auf Hajo's Seite
http://hajo-excel.de/vba_blinken.htm
Gruss Hary

AW: auf Hajo's Seite

08.07.2008 15: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 15: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 15: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

Forumthread: bestimmten Text blinken lassen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread