Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle blinken lassen

Zelle blinken lassen
26.02.2016 06:40:38
Michael
Hallo ihr Profis
Bräuchte mal eure Hilfe und zwar möchte ich das wenn ich eine Arbeitsmappe öffne das die Zelle C4 Blinkt
bis ich die Mappe wieder schließe sie soll aber noch beschriftbar sein.
Es steht nur eine Teile Bezeichnung drin.
Hoffe ihr könnt mir helfen.
Gruß Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle blinken lassen
26.02.2016 07:58:32
Mullit
Hallo,
da geht sowas:
' ********************************************************************** 
' Modul: DieseArbeitsmappe Typ: Klassenmodul der Arbeitsmappe 
' ********************************************************************** 

Option Explicit

Private Sub Workbook_Activate()
 Call Application.OnTime(EarliestTime:=Now, Procedure:="prcStartBlinker")
End Sub

Private Sub Workbook_Deactivate()
 Call prcStopBlinker
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If Sh Is Tabelle1 Then Call prcStartBlinker  'Tabelle ggf. anpassen.... 
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 If Sh Is Tabelle1 Then Call prcStopBlinker 'Tabelle ggf. anpassen.... 
End Sub

' ********************************************************************** 
' Modul:  Typ: Standardmodul 
' ********************************************************************** 

Option Explicit

Private lblnSwitchColor As Boolean

Public Sub prcStartBlinker()
    Dim sngTimer As Single
    Dim sngOnTime As Single
    Dim sngOffTime As Single
    Dim sngOnColor As Single
    Dim sngOffColor As Single

    sngOnTime = 0.5
    sngOnColor = vbRed

    sngOffTime = 0.5
    sngOffColor = vbBlue

    lblnSwitchColor = True

    While lblnSwitchColor
         With Tabelle1.Cells(4, 3).Interior 'Tabelle ggf. anpassen.... 
             .Color = sngOnColor
             sngTimer = Timer: While Timer < sngTimer + sngOnTime: DoEvents: Wend
             .Color = sngOffColor
             sngTimer = Timer: While Timer < sngTimer + sngOffTime: DoEvents: Wend
         End With
    Wend
End Sub

Public Sub prcStopBlinker()
  lblnSwitchColor = False
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Gruß, Mullit

Anzeige
AW: Zelle blinken lassen
26.02.2016 19:40:57
Michael
Alles super
Danke Mullit klappt wie gewünscht
Gruß Michael

199 Forumthreads zu ähnlichen Themen

Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Anzeige
vba; markieren ohne 1.Zelle/Überschrift
Günter

Guten Morgen,
wie bekomme ich es hin, über VBA (vielleicht über einen Button mit Makrohinterlegung),
dass eine markierte Spalte alles ohne 1.Zelle/Überschrift kopiert wird?
Schönen Gruß
Günter
13.08.2009 08:37:35
Thread-ID: 1095472
5 Beiträge
von Textfeld auf Zelle übertragen (ohne VBA)
Textfeld

Hallo und schönen Guten Morgen,
hätte mal wieder eine Frage.
Ich habe in Tabelle1 ein Textfeld (Zeichenpalette) eingefügt.
Wie schaff ich es den Inhalt dieses Texfeldes in eine Zelle der Tabelle2 zu übertragen?
Andersrum geht es wunderbar Textfeld markieren, Bearbeitungszeile,...
22.07.2010 10:25:30
Thread-ID: 1168265
6 Beiträge
Anzeige
ZELLE.ZUORDNEN zusammen mit bedingter Formatierung
Annja

Hallo,
bis jetzt habe ich ZELLE.ZUORDNEN(63;...) nur eingesetzt, wenn explizit auch eine Farbe für eine Zelle gesetzt war.
Nun habe ich den Fall, dass die Farbe einer Zelle über bedingte Formatierung gesetzt wird, und als Ergebnis aus ZELLE.ZUORDNEN(63;...) immer nur 0 rauskommt, d.h. k...
08.11.2012 11:43:27
Thread-ID: 1285810
9 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
TextBox in UF blinken lassen
Mister

Guten Morgen,
wie kann ich ein TextBox 5 Mal blinken lassen beim Starten einer UserForm?
Gruß
Martin
05.06.2013 08:04:00
Thread-ID: 1316332
4 Beiträge
Bestimmte Werte in Zellen blinken lassen
ropa

Hallo
ist es möglich Werte ab einer bestimmten Höhe optisch blinken zu lassen
Wenn möglich ohne Makro.
Viele Grüße
Roland
16.01.2014 09:29:18
Thread-ID: 1345412
6 Beiträge
Zellen blinken lassen
Thorsten

Für heute wirklich die letzte Frage
kann man Zellen blinken lassen?Thorsten
23.07.2002 16:14:34
Thread-ID: 139589
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
5
4
5
2
8
2
3
5
4
2
7
1
4
13
12
1
1
8
4
6
4
6
1
19