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

blinkende Zelle bei bestimmten Text

Forumthread: blinkende Zelle bei bestimmten Text

blinkende Zelle bei bestimmten Text
17.01.2024 15:05:05
Babelalala
Hallo an alle

Ich möchte gerne die Zelle F 1 für 5 sec blinken lassen, wenn dort der Text "Firmenname falsch geschrieben steht".
Könnt ihr mir bitte helfen.

Hier die Beispieldatei

https://www.herber.de/bbs/user/166159.xlsm


Vielen lieben Dank
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wozu solchen "Schnickschnack"? ...
17.01.2024 15:08:49
neopa C
Hallo Babelalala,

... eine einfache bedingte Formatierung z.B. rot Schrift auf gelben Hintergrund ist zudem "dauerhaft" auffällig sichtbar.

Babelalala
AW: blinkende Zelle bei bestimmten Text
17.01.2024 15:43:02
Herbert Grom
Hallo,

schau dir mal meinen Vorschlag an:

https://www.herber.de/bbs/user/166160.xlsm

Servus
Anzeige
AW: blinkende Zelle bei bestimmten Text
17.01.2024 16:04:13
Lux
Hi

Füge diesen Code in ein VBA-Modul in deinem Excel-Arbeitsbuch ein. Du kannst dies tun, indem du die Tastenkombination "Alt + F11" drückst, um den VBA-Editor zu öffnen, dann "Einfügen" -> "Modul" auswählst und den Code dort einfügst.


Sub BlinkF1Cell()
Dim blinkInterval As Double
Dim blinkCount As Integer
Dim originalColor As Variant

' Blink-Intervall in Sekunden
blinkInterval = 1

' Anzahl der Blinkzyklen
blinkCount = 5

' Ursprüngliche Zellenfarbe speichern
originalColor = Range("F1").Interior.Color

' Text in Zelle überprüfen und blinken lassen, wenn Bedingung erfüllt
If Range("F1").Value = "Firmenname falsch geschrieben" Then
For i = 1 To blinkCount * 2
If i Mod 2 = 0 Then
Range("F1").Interior.Color = originalColor
Else
Range("F1").Interior.Color = RGB(255, 0, 0) ' Rote Farbe
End If
Application.Wait (Now + TimeValue("0:00:01")) ' Wartezeit in Sekunden
Next i
End If

' Ursprüngliche Zellenfarbe wiederherstellen
Range("F1").Interior.Color = originalColor
End Sub

Gruss

Anzeige
AW: blinkende Zelle bei bestimmten Text
17.01.2024 16:21:53
Babelalala
Hallo Lux

Das passt auch, danke!!!

mfG

babelalala
AW: blinkende Zelle bei bestimmten Text
17.01.2024 16:00:18
Babelalala
Hi
genau das wollte ich.
Passt!!
Geht das auch mit Schriftfarbe rot?
Wenn nicht ist es auch gut. Das blinken reicht schon!!
Vielen Dank

AW: blinkende Zelle bei bestimmten Text
17.01.2024 16:02:50
Herbert Grom
Jetzt ist die Schriftfarbe grün. Soll sie zwischen grün und rot blinken oder wie hast du das gedacht?
Anzeige
AW: blinkende Zelle bei bestimmten Text
17.01.2024 16:08:20
Babelalala
Hallo

ja genau, wenn das möglich ist

MfG babelalala
AW: blinkende Zelle bei bestimmten Text
18.01.2024 09:37:07
Babelalala
Hallo

Das ist perfekt, vielen Dank für Eure Hilfe

MfG

babelalala
Anzeige
AW: Bitte sehr, gerne geschehen! owt
18.01.2024 15:09:53
Herbert Grom
,,,
AW: wozu solchen "Schnickschnack"? ...
17.01.2024 15:12:47
Babelalala
Hallo
ich möchte aber das die Zelle blinkt.
Schnickschnack hin oder her
Gruß

babelalala
AW: wozu solchen "Schnickschnack"? ...
17.01.2024 15:25:31
daniel
Blinken ist schwierig.
wenn nur mit VBA. Kannst du das?
Bist du breit, für dieses Blinken VBA zu lernen.

Statt Fehler zu erkennen ist der bessere Weg immer, Fehler zu vermeiden.

Richte für die Zelle B3 eine Gültigkeitsprüfung ein.
markiere diese Zelle und gehe dann ins Menü: DATEN - DATENTOOLS - DATENÜBERPRÜFUNG
im Reiter "Einstellung" wählst du dann: Zulassen: Liste und dann Quelle: =Matrix!$A$5:$A$26
damit kannst du in B3 nur noch Werte eingeben, die in der Quelle aufgelistet sind.
du musst die Werte auch nicht mehr tippen, sondern bekommst ein DropDownfeld, in dem du sie auswählen kannst.

viel einfacher und vorallem viel komfortabler für den Anwender.

Gruß Daniel
Anzeige
AW: wozu solchen "Schnickschnack"? ...
17.01.2024 15:28:21
Babelalala
Hallo
Natürlich weiß ich daẞ dies nur mit einem Makro geht. Da ich das nicht kann habe ich die Anfrage hier im Forum gestellt.


Gruß Babelalala
AW: wozu solchen "Schnickschnack"? ...
17.01.2024 15:45:47
daniel
Excel-VBA-Forum ist so ein bisschen wie Autofahrerforum
Wenn man schon Autofahren kann, kann man sich in einem Autoforum noch viele Informationen holen.
Aber ein Autofahrerforum ist nicht geeignet, um grundsätzlich Autofahren zu lernen oder gar den Führerschein zu machen.

Was hälst du von meiner Idee mit der Datenüberprüfung?

Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Bedingte Formatierung für Texte
Werner

Hallo,
ich möchte per bedingte Formatierung erreichen, dass Texte unterschiedliche Hintergrundfarben bekommen.
Gibt man z.B. "Qualität" ein, so soll auch später das Wort wieder die gleiche Hintergrundfarbe erhalten.
Dazu habe ich nun bereits mehrere Regeln erstellt, ich wollte damit...
01.03.2010 16:48:06
Thread-ID: 1142432
11 Beiträge
Anzeige
Abfrage, ob in Textbox ein "." enthalten ist
tom_r

Hi,
ich möchte prüfen, ob im Textfeld einer UF ein "." enthalten ist und dann soll entsprechend verzwiegt werden. Aber irgendwie hat das nicht hin. Mit "." passiert nichts, nur wenn der Inhalt keinen "." hat, bekomm ich ein Ergebnis.
so sieht meine Prüfung aus
Select Case InStr(1, A...
16.03.2010 13:00:20
Thread-ID: 1146203
5 Beiträge
Wenn zelle AW3, dann Farbe und Text.
Friedrich

Guten Abend liebe Excel-Spezis,
ich brauche in VBA folgende Lösung:
In der Zelle AW3 erscheinen über eine Formel drei Aussagen SH, H und E
Bei SH sollte die Zelle A7 Rot werden und eine Text "Sofortiger Handlungsbedarf" in Fett erscheinen.
Danke für eure Hilfe
Gruß Friedrich...
30.08.2010 18:23:16
Thread-ID: 1174841
2 Beiträge
Text splitten wenn Zelle mehr als 265 Zeichen
bernie

Hallo Profis,
in einer Zelle habe ich mehr Text (mehr als 265 Zeichen) als ich über die Datenbankfunktion suchen kann.
Kann mir jemand einen Tipp geben, wie nach dem Einfügen eines langen Textes dieser so gesplittet wird, daß z.B. dann in B1 Text bis 265 Zeichen, in C1 der weitere Tex...
17.11.2010 13:03:03
Thread-ID: 1187321
10 Beiträge
Anzeige
wenn in textbox1 der wert zwischen 1 u 35 dann rot
Achim

Hallo Excel Freunde
Komm nicht weiter. Wenn In meiner textbox1 der wert zwischen 0 und 34 liegt soll das Textfeld rot sein.
ist der wert 35 dann soll das Feld grün sein
Habe rumprobiert bekomme das nicht hin:
If TextBox1.Value = ? Then TextBox1....
06.12.2010 12:16:05
Thread-ID: 1190233
4 Beiträge
Wenn alle TextBox leer dann Exit Sub
frank

Hallo
Bei wenigen TextBox prüfe ich den Inhalt so
If TextBox3.Text = "" And _
TextBox4.Text = "" And _
TextBox32.Text = "" And _
TextBox33.Text = "" Then
Exit Sub
Bei vielen TextBox wird es doch eine lange Liste.
Die Prüfung mit einer Schleife krieg ich nicht hin...
13.12.2010 17:49:31
Thread-ID: 1191269
6 Beiträge
Bedingte Formatierung-Bezug auf den ersten Textt.
Holger

Hallo,
ich möchte eine Bedingte Formatierung mit Bezug auf den ersten Buchstaben eines Textes in einer Zelle
erreichen. In diesem Beispiel ist es der Buchstabe "A".
Wie muss der folgende Code verändert werden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim actCell As Ra...
15.12.2010 09:12:48
Thread-ID: 1191529
3 Beiträge
Wenn Text in Spalte A = "TT" dann kopiere werte
gemanna

Hallo alle zusammen,
habe immer mit Excel gearbeitet und bin immer gut zurecht gekommen. Vor einigen Tagen habe angefangen Makros und VBA kennenzulernen und bin richtig fasziniert von den Möglichkeiten, die das Programm bietet. Nun brauch ich die Hilfe von euch, weil ich in den Büchern und...
01.04.2011 10:42:39
Thread-ID: 1208640
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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