Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2024 12:00:15
Link nächstes & vorheriges Tabellenblatt
20.05.2024 11:11:43
Tabellenblätter aus Liste erstellen
20.05.2024 10:57:38
vba gleiche Werte zählen/auflisten/popup
20.05.2024 07:58:34
Wie Formelberechnung trotz Blattschutz
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1968to1972
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
1968to1972
1968to1972
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
25.03.2024 10:38:57
Camille Stirn
Hallo,
ich will Zelle A1 blinken lassen wenn nicht leer. In Zelle A1 steht folgende Formel: =WENN(B1="";"";B1). Also soll Zelle A1 blinken, wenn in Zelle B1 ein Wert oder Text steht.
Danke für Eure Bemühungen.
Camille

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle blinken lassen
25.03.2024 11:06:05
{Boris}
Hi,

Excel ist ne Tabellenkalkulation und keine Disco ;-)
Blinkende Zellen sind genau so out wie

Laufschrift

Färbe sie mittels bedingter Formatierung sichtbar (z.B. rot) ein.

VG, Boris
AW: Zelle blinken lassen
25.03.2024 11:09:41
daniel
Hi
lege für die Zelle A1 zwei bedingte Formatierungen für die beiden Blinkfarben an mit der Regel: 
=Und(A1>"";Rest(Sekunde(Jetzt());2)=0)

=Und(A1>"";Rest(Sekunde(jetzt());2)=1)


füge dann folgende Makros ein:
- in ein allgemeines Modul: 
Option Explicit

Public xxx As Date



Sub Blinken()

If ActiveSheet.Name = "Tabelle1" Then Range("A1").Calculate

xxx = Now + TimeSerial(0, 0, 1)

Application.OnTime xxx, "Blinken"

End Sub


- ins modul des Tabellenblatts wo geblinkt werden soll: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B1")) Is Nothing Then If Range("B1") > "" Then Call Blinken

End Sub


- ins Modul "DieseArbeitsmappe" 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If xxx > Now Then Application.Run xxx, "Blinken", schedule:=False

End Sub



Private Sub Workbook_Open()

Call Blinken

End Sub


Gruß Daniel
Anzeige
AW: Zelle blinken lassen
26.03.2024 11:16:04
Camille Stirn
Hallo Daniel,
habe deine Lösung genommen und alles funktioniert perfekt.
Vielen Dank.
AW: Zelle blinken lassen
27.03.2024 11:17:57
Camille Stirn
Hallo Daniel,
habe dir gestern etwas voreilig geschrieben, dass alles perfekt funktioniert, als ich später die Datei schließen wollte kam folgende Meldung in einem Fenster:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If xxx > Now Then Application.Run xxx, "Blinken", schedule:=False
End Sub

Private Sub Workbook_Open()
Call Blinken
End Sub

"schedule:=" ist blau markiert.
In einem kleineren Fenster "Microsoft Visual Basic for Applications" steht: "Fehler beim Kompilierten: Benanntes Argument nicht gefunden".
Kliche ich auf "Ok", meldet ein anderes kleine Fenster: Code kann im Haltemodus nicht ausgeführt werden". Klicke auf "ok", dann kommt eine nächste Meldung: "Dieser Befehl beendet den Debugger". Klicke auf "ok" und die Datei schließt sich.
Da klappt irgend etwas nicht. Kannst du mir bitte weiterhelfen. Danke.
Anzeige
AW: Zelle blinken lassen
28.03.2024 11:42:40
daniel
Hi
schau mal in der Hilfe, wie der Parameter korrekt benannt werden muss, kann sein das ich mich da vertippt habe.
im notfall gehts auch ohne Parameternamen, dann muss man aber zwei Kommas setzen, damit die reihenfolge stimmt.

If xxx > Now Then Application.Run xxx, "Blinken", , False
AW: Zelle blinken lassen
28.03.2024 13:35:45
Camille Stirn
Hallo Daniel,
habe die Zeile jetzt so eingegeben:
If xxx Now Then Application.Run xxx, "Blinken", , False
Habe das Zeichen > durch ersetzt und jetzt klappt es, war sicherlich ein Tippfehler.
Danke für deine Hilfe.
AW: ist dein google auch abgestürzt?
25.03.2024 10:58:13
Camille Stirn
Nein Google funktioniert, habe auf deiner angegebener Adresse alles durchstöbert aber kein Lösung gefunden, Text blinken, aktive Zelle blinken habe ich gefunden und klappt wunderbar, nur Zelle blinken wenn "nicht leer" habe ich nicht gefunden.
Anzeige
AW: ist dein google auch abgestürzt?
25.03.2024 11:43:13
ralf_b
"Zelle blinken wenn nicht leer" ist doch nur eine zusätzliche Bedingung. Wenn du immer nur genau das suchst was auf deine spezielle Anwendung passen muss, dann wird's mit finden schwer.
AW: ist dein google auch abgestürzt?
25.03.2024 12:51:47
Camille Stirn
Hallo ralf_b,
habe deinen Link kopiert und eingegeben, doch die Zeile:
Public Const BlinkCell As String = "Tabelle1!B2"
wird rot geschrieben und Const wird markiert. Schreibe ich PublicConst aneinander, dann wird As markiert. Da muss doch irgendwie etwas nicht stimmen.
Das war bei Sheet1 und bei Tabelle1, muss ja den richtigen Namen des Blattes eingeben. Was soll ich unternehmen?
AW: ist dein google auch abgestürzt?
25.03.2024 13:10:00
ralf_b
eine Konstante wirst du nicht nutzen können wenn du es mit variablen Zellen machen willst.
Activecell kann man als Ersatz für BlinkedCell nehmen. Das ist schon eine Variable in der die aktive Zelle auf dem Aktiven Blatt representiert wird. Dann müsstest du in einer der Makros die Prüfung ob die Zelle leer ist oder nicht machen.
oder in einem Neuen Makro. darin dann die blinkemakros aufrufen, je nach Zellwertprüfung 


sub blinkanaus()

if activecell="" then

   StartBlinking Activecell.address

else

  StopBlinking ActiveCell.address

end if  

end sub



'diese Methodenköpfe so anpassen

Private Sub StartBlinking(BlinkCell$)



Private Sub StopBlinking(BlinkCell$)


Warum nimmst nicht Daniels Lösung? Gut erklärt. Wahrscheinlich funktioniert sie auf Anhieb.
Anzeige
AW: ist dein google auch abgestürzt?
25.03.2024 13:40:27
Camille Stirn
Ok Danke, versuche es einmal mit Daniels Lösung...
AW: ist dein google auch abgestürzt?
26.03.2024 11:18:25
Camille Stirn
Hallo,
habe Daniels Lösung genommen und alles funktioniert perfekt.
Danke dir für deine Bemühungen.

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige