Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Animierte Schrift in einem Excel Sheet

Forumthread: Animierte Schrift in einem Excel Sheet

Animierte Schrift in einem Excel Sheet
06.08.2003 10:48:39
Edith
Hallo,

ich möchte gerne in einem Excel Sheet eine blickende Schrift einfügen
(z.B: ACHTUNG! ARBEITSSTAND)!
Wie kann ich das auf möglichst einfache Weise lösen.

Danke!

Gruß
Edith
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Animierte Schrift in einem Excel Sheet
06.08.2003 11:35:43
Ivan



hi Edith
versuche das mal
in einem modol

Option Explicit

Sub Blinke_meine_Zelle()
If ActiveSheet.ProtectContents Then Exit Sub
Dim As Integer, Start As Single, oldI As Integer
On Error Resume Next
oldI = ActiveCell.Interior.ColorIndex
Start = Timer
Select Case Timer
Case To 999: x = 5
Case 1000 To 9999: x = 6
Case Else: x = 7
End Select
While Timer - Start < 1
If Val(Mid(Timer, x, 1)) Mod 2 = 0 Then
ActiveCell.Interior.ColorIndex = 5
Else
ActiveCell.Interior.ColorIndex = 19
End If
Wend
ActiveCell.Interior.ColorIndex = oldI
End Sub

gruss
ivan


Anzeige
Klasse, dein Code Ivan__oT
06.08.2003 14:35:46
Jochen
oT


AW: Animierte Schrift in einem Excel Sheet
06.08.2003 15:41:00
Lotti
Hallo Ivan,

da kann ich mich nur anschliessen: RICHTIG SCHÖN, nur ich hab' versucht das nachzuvollziehen: HUUUUUPS, kann ich gar nicht!
While Timer - Start heisst soviel wie dauert eine Sekunde.
Nur die Case Abfrage is mir nich ganz klar: WAS LÄUFT DA AB?
Vieleicht kannst du mir das nur kurz verklickern, wär nett!


DAnke Lotti


Anzeige
AW: Animierte Schrift in einem Excel Sheet
06.08.2003 16:21:38
ivan
hi Lotti
der collorindex wird hochgezählt und der timer sagt
wie lange das ding laufen soll!

hier kann man ändern--3
While Timer - Start < 6'beliebig 1=1 sekunde

gruss
ivan


AW: Animierte Schrift in einem Excel Sheet
06.08.2003 16:36:50
Jochen
Ich hab in der Recherche gefunden, dass der Code
von L.Vira ist. Vielleicht fragst du mal direkt an,
ob sie dir den Code erklären kann.

Gruß Jochen


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige