AW: Blinkender Text
05.05.2003 04:50:20
heinz
Re: Text blinken lassen
erste tabelle, zelle a1 - text blinkt:
"hinter" deine tabelle:
Private Sub Worksheet_Activate()
Call blink
End Sub
Private Sub Worksheet_Deactivate()
Application.OnTime start, "blink", , False
End Sub
modul einfügen:
Option Explicit
Public start As Date
Sub blink()
If Sheets(1).Cells(1, 1).Font.ColorIndex = xlColorIndexAutomatic Then
Sheets(1).Cells(1, 1).Font.ColorIndex = 2' bemerkung
Else: Sheets(1).Cells(1, 1).Font.ColorIndex = xlColorIndexAutomatic
End If
start = Now + TimeValue("00:00:01")
Application.OnTime start, "blink"
End Sub
bemerkung:
2 ist weiß, wenn deine zelle einen farbigen hintergrund hat erscheint die schrift weiß anstatt zu verschwiden. kannst du händisch ändern (schriftfarbe = hintergrundfarbe) oder die hintergrundfarbe der zelle abfragen und in eine variable und dann .... gähn