Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zelle blinken lassen

1,202 views
Skip to first unread message

Andrè Klose

unread,
Feb 27, 2002, 3:45:06 PM2/27/02
to
Guten Tag,
wer kann mir weiterhelfen.
Ich habe eine Tabelle mit vielen Kundenaufträgen und den dazugehörigen
Lieferterminen angelegt. Es
wird zu jedem Auftrag die Zeitdifferenz vom aktuellem Datum zum Lieferdatum
errechnet. Mit Bedingte Formatierung habe ich die Zellen so formatiert , daß
ich schon vorher erkennen kann, daß ein Liefertermin fällig wird. Wenn nun
aber der Termin erreicht ist (0 Tage) soll die Zelle farblich blinken.
Geht sowas?

Viele Grüße
Andrè


Andrè Klose

unread,
Feb 27, 2002, 3:45:00 PM2/27/02
to

Andrè Klose

unread,
Feb 27, 2002, 3:44:27 PM2/27/02
to

Sonnenradl

unread,
Feb 27, 2002, 4:18:14 PM2/27/02
to
Hi,
gehen tut sowas bestimmt(ich weiss zwar nicht wie, aber...) , nur zieht dir
nach meiner erfahrung sowas den rechner in den keller...
(da ein termin eigentlich eine zeit ist, muss das konsequenterweise auch für
sekunden gelten, oder noch schlimmer)
wenn du schon die bedingte formatierung eingesetzt hast, warum dann nicht nach
dem ampelprinzip: grün- ist noch zeit; gelb - nun aber hurtig; rot- nun aber
erst recht hurtig ;-)

eine ständige neuberechnung des aktuellen datums( also mit uhrzeit und allem )
halte ich hier für doch etwas zu aufwendig. bsp: man kommt morgens zur arbeit
und erkennt die nun fälligen termine für den aktuellen tag, man versucht diese
abzuarbeiten und einer bleibt übrig... damit auch morgen dieser nicht vergessen
wird, reicht es doch aus, diesen 'alten termin' ebenfalls am nächsten tag zu
erkennen? mgw. sortiert nach dem ablaufdatum?

falls dies nicht ausreicht: eine on_close methode, die die termine durchforstet
und dich an den arbeitsplatz fesselt, solange ein termin 'im heute oder in der
vergangenheit' liegt, also noch bearbeitet werden sollte.... ;-(

gruss sonne

Frank Arendt-Theilen

unread,
Feb 27, 2002, 5:28:37 PM2/27/02
to
Hallo André,
hier ein Beispiel von Thomas Ramel:

Sub Blinken()
Static blinkAn As Boolean
If Range("A1").Value = 1 Then
If blinkAn Then
Range("A1").Interior.ColorIndex = 6
blinkAn = False
Else
Range("A1").Interior.ColorIndex = 0
blinkAn = True
End If
End If
Application.OnTime Now + TimeValue("00:00:01"), "blink"
End Sub

Es fehlt allerdings die Möglichkeit das Blinken grundsätzlich
auszuschalten.

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Piet Robe

unread,
Mar 2, 2002, 4:54:13 PM3/2/02
to
Frank,
dass stimt aber
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then Call blink
End Sub

und dass beispiel von thomas als volgt andert:
If Range("A1").Value <>1 Then

Dan funktioniert es.
die 1 einschalten
die 0 aus

Gruß
Piet Robe

(to reply to sender remove DITVERWIJDEREN from emailadress)

"Frank Arendt-Theilen" <Thei...@t-online.de> schreef in bericht
news:75nq7u44sj5e51g24...@4ax.com...

0 new messages