Text blinken lassen wie in Word

Tassilo Möschke

unread,

Mar 12, 2004, 3:34:24 AM3/12/04

to

Hallo,
gibt es eine Möglichkeit in Excel den Text blinken zu lassen wie in Word mit
".Animation = wdAnimationBlinkingBackground "? (Ich meine nicht den
Hintergrung abzuwechsel oder so, sondern eine Funktion die man aus und
einschalten kann.
Vielen Dank
Grüße
Tassilo

Frank Kabel

unread,

Mar 12, 2004, 3:49:59 AM3/12/04

to

Hi Tassilo,
das geht in Excel nur mit Makros (z.B.: Nutzung der OnTime funktion).
Allerdings behindert dann die Ausführung dieses Makros die Verarbeitung
von Excel (da es die ganze Zeit läuft).
Meine persönliche Meinung zu blinkenden Zellen: So etwas hat nicht in
einem Spreadsheet zu suchen :-), aber wenn Du es mal ausprobieren
willst, nutze folgenden Code:

Dim Nexttime
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Worksheets("Tabelle1").Range("A1").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Worksheets("Tabelle3").Range("A1").Font.ColorIndex =
xlAutomatic
End Sub

Mit der ersten Prozedur startest du das 'blinken' für Zelle A1 in
Tabelle1, mit der zweiten kannst du es wieder abschalten

--
Regards
Frank Kabel
Frankfurt, Germany

Thomas Ramel

unread,

Mar 12, 2004, 4:04:24 AM3/12/04

to

Grüezi Tassilo

Tassilo Möschke schrieb am 12.03.2004

> gibt es eine Möglichkeit in Excel den Text blinken zu lassen wie in Word mit
> ".Animation = wdAnimationBlinkingBackground "? (Ich meine nicht den
> Hintergrung abzuwechsel oder so, sondern eine Funktion die man aus und
> einschalten kann.

Wenn Du Excel nur noch blinken lassen willst... ;-)

Alterneitv wäre es möglich, die 'Blink'-Routine auzulagern, damit der
Excelprozess dadurchn icht belastet wird. Allerdings brauchts dazu dann
eine kleine Installation. Aber du kannst es ja mal testen:

http://rtsoftwaredevelopment.de/Freeware_BlinkerServer.htm

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win 2000Pro SP-4 / xl2000 SP-3]

Tassilo Möschke

unread,

Mar 12, 2004, 4:25:16 AM3/12/04

to

mein Versuch war es, in einer Tabelle mit vielen Zahlenreihen, mit einer
eigenen Menüfunktion Formeln, bzw. Konstanten die in einer Formel verwendet
zu markieren bzw. demarkieren. ohne dabei die Formatierung nachhaltig zu
ändern, ähnlich wie "select"

Bsp.
...
If MB.State = msoButtonUp Then
Selection.SpecialCells(xlCellTypeFormulas).Font.Color = 3: MB.State =
msoButtonDown
Else
Selection.SpecialCells(xlCellTypeFormulas).Font.Color = 1: MB.State =
msoButtonUp
End If
...
Hiermbei änder ich leider die Farber des Wertes defninitiv in Schwarz, egal
wie die Farbe vorher war.

Grüße
Tassilo

"Frank Kabel" <frank...@freenet.de> schrieb im Newsbeitrag
news:ed$v97ACE...@TK2MSFTNGP09.phx.gbl...

Melanie Breden

unread,

Mar 12, 2004, 5:25:09 AM3/12/04

to

Hallo Tassilo,

Tassilo Möschke schrieb:

> mein Versuch war es, in einer Tabelle mit vielen Zahlenreihen, mit einer
> eigenen Menüfunktion Formeln, bzw. Konstanten die in einer Formel verwendet
> zu markieren bzw. demarkieren. ohne dabei die Formatierung nachhaltig zu
> ändern, ähnlich wie "select"
>
> Bsp.
> ...
> If MB.State = msoButtonUp Then
> Selection.SpecialCells(xlCellTypeFormulas).Font.Color = 3: MB.State =
> msoButtonDown
> Else
> Selection.SpecialCells(xlCellTypeFormulas).Font.Color = 1: MB.State =
> msoButtonUp
> End If
> ...
> Hiermbei änder ich leider die Farber des Wertes defninitiv in Schwarz, egal
> wie die Farbe vorher war.

so sollte es klappen:
Selection.SpecialCells(xlCellTypeFormulas).Font.ColorIndex = 3

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Melanie Breden

unread,

Mar 12, 2004, 5:57:36 AM3/12/04

to

Hallo Frank,

Frank Kabel schrieb:

> Meine persönliche Meinung zu blinkenden Zellen: So etwas hat nicht in
> einem Spreadsheet zu suchen :-), aber wenn Du es mal ausprobieren
> willst, nutze folgenden Code:

ein kleiner Tipp :-)

> If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2

Solche If Then Else-Anweisungen kann man auch gut durch die
IIf-Funktion ersetzen:

.ColorIndex = IIf(.ColorIndex = 2, 3, 2)

Frank Kabel

unread,

Mar 12, 2004, 6:01:31 AM3/12/04

to

Hallo Melanie

Melanie Breden wrote:
> Hallo Frank,
[....´]

>
> ein kleiner Tipp :-)
>
>> If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
>
> Solche If Then Else-Anweisungen kann man auch gut durch die
> IIf-Funktion ersetzen:
>
>
> .ColorIndex = IIf(.ColorIndex = 2, 3, 2)

Stimmt natürlich :-)
Danke
Frank