Danke
Fitsche
Danke
Fitsche
Die jeweils aktive Zelle blinkt (Code von L.Vira).
Gruß Boris
"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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime start, "blink", , False
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Call blink
End Sub
rest wie gehabt nur mit error resume next - brauchts weil fehler wenn zb. "blink" gar nicht läuft und abgeschaltet werden soll. eigentlich könnte man sich das da unten auch sparen, mich nervts aber wenn ich auf eine andere tabelle gehe und im hintergrund läuft ein unnützes programm weiter (cursor zuckt nervös herum)
Private Sub Worksheet_Activate()
On Error Resume Next
Call blink
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.OnTime start, "blink", , False
End Sub
ich mail dich diesbezüglich heute Abend an!
Gruß Boris