Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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


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


Anzeige
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


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige