Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
644to648
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Symbol blinken lassen

Symbol blinken lassen
01.08.2005 12:55:52
Alex
Hi Excelisten,
habe mal eine Frage ich möchte gerne wenn ein bestimmtes Makro gestartet wird, dass eine Autoform erscheint und 15 sekunden blinkt z.b. der Blockpfeil nach links.
Ist das in Excel umsetzbar oder überhaupt möglich ?
Hoffe jeman hat eine Idee.
Gruß Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symbol blinken lassen
01.08.2005 13:44:28
René
Versuchs mal damit.
das bringt eine beliebige Figur/Form... im Sekundentakt zum blinken.
Du musst nur eine Abbruchbedingung definieren

Sub Blinken_Starten()
Dim shpShape As Shape
Set shpShape = ActiveSheet.Shapes(1)
shpShape.Visible = msoTrue
dblStart = Now + TimeValue("00:00:01")
Application.OnTime Earliesttime:=dblStart, _
Procedure:="blinken_weiter"
End Sub



Sub blinken_weiter()
Dim shpShape As Shape
Set shpShape = ActiveSheet.Shapes(1)
shpShape.Visible = msoFalse
dblStart = Now + TimeValue("00:00:01")
Application.OnTime Earliesttime:=dblStart, _
Procedure:="blinken_Starten"
End Sub

Anzeige
Danke Rene für deine Hilfe
01.08.2005 14:29:06
Alex
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige