Microsoft Excel

Herbers Excel/VBA-Archiv

bestimmten Text blinken lassen

Betrifft: bestimmten Text blinken lassen von: Maris
Geschrieben am: 08.07.2008 09:50:47

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

  

Betrifft: AW: auf Hajo's Seite von: hary
Geschrieben am: 08.07.2008 12:51:31

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

Gruss Hary


  

Betrifft: AW: auf Hajo's Seite von: Maris
Geschrieben am: 08.07.2008 13:16:49

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!


  

Betrifft: AW: auf Hajo's Seite von: Hajo_Zi
Geschrieben am: 08.07.2008 13:20:21

Hallo Maris,

ändere den Hintergrund .Interior.ColorIndex auf .Font.ColorIndex und der Text blinkt. Und bei bestimmten Wert abschalten ist schon auf der Seite.
GrußformelHomepage


  

Betrifft: AW: auf Hajo's Seite von: Maris
Geschrieben am: 08.07.2008 13:23:11

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




 

Beiträge aus den Excel-Beispielen zum Thema "bestimmten Text blinken lassen"