Office: (Office 2010) Blinkender Wert

Hallo meine Lieben!!!

Ich brauche bitte mal wieder eure Unterstützung.

Habe schon im Forum gestöbert, aber nichts gefunden, aus dem ich schlau geworden ware *rolleyes.gif* .

Ich möchte den Wert (der sich aus einer Formel ergibt) z.b. in Zelle C6, blinken lassen, wenn die Wert (Formel) 15 oder größer ist.

Die Schrift soll rot mit weißem Hintergrund (Fett) in einer weißen Zelle blinken.

Wenn ihr mir da weiter helfen könntet, ware ich euch sehr dankbar.

Liebe Grüße Ivy

:)

 

VBA blinken per Formel

 

Hallo Hajo,

Vielen Dank für deinen Lösungsvorschlag, aber ich habe mittlerweile einen Code gefunden, den ich umgeschrieben habe und funktioniert.

Trotzdem habe ich noch ein Anliegen und hoffe, mir kann jemand den Code so umschreiben, dass die Felder gleichzeitig blinken.

Ich habe eine neue Datei hinzugefügt.
Die Zellen H10 und S10 (und Zellen, die ich noch in Zukunft hinzufüge) .... sollen GLEICHZEITIG blinken, wenn sie den Wert von 10 überschreiten.

Der Code funktioniert, die Zellen blinken. Zuerst die Zelle H10 (3x), dánn die Zelle S10 (3x). Aber ich möchte, dass alle Zellen gleichzeitig blinken, die über 10 sind.
Funktioniert das? Kann mir bitte jemand von Euch helfen.

Der Code lautet:

Code:

Danke für eure Mithilfe.
Liebe Grüße Ivy

 

Gut meine Variante, wo der Wert der Zelle beim öffnen festgestellt wird und wo es automatisch läuft, hat Dir also nicht gefallen.
Viel Erfolg noch.

 

Hallo Hajo,

Sorry, aber ich konnte leider mit deinem Code, meine Wünsche nicht umsetzen. Habe es versucht, bin aber immer gescheitert.
Kannst du mir bitte helfen?

Danke, lg Ivy

 

Hallo Ivy,

bei mir klapüpt das so: Code:

Gruß von Luschi
aus klein-Paris

PS: blinken finde ich doof, denn Excel besitzt keinen eigenen Timer und ist auf die Gnade des Betriebssystems abhängig und Application.Wait hat eine sehr kleine Wichtigkeit in der Hierarchie der Windows-Tasks

 

Hallo Luschi,

Herzlichen Dank.
Das ist genau das, was ich gesucht habe.
Eine Frage habe ich noch.

Was meinst du mit: Application.Wait hat eine sehr kleine Wichtigkeit in der Hierarchie der Windows-Tasks?

Lg Ivy

 

Hallo Ivy,

Application.Wait muß sich beim Windows-Tastmanager anmelden und wird 'Dank' fehlender Wichtigkeit in die unterste Prioritätsstufe eingeteilt. Andere Prozesse, die die Sicherheit des Betriebssystems garantieren usw., werden viel höher eingestuft und bekommen je Zeitscheibe mehr Rechenzeit zugeordnet als Dein Wunsch, etwas blinken zu lassen.
Das ist eben wie im richtigen Leben. Kommt die Bundeskanzlerin / Bundespräsident / Ministerpräsident usw. zu einer Veranstaltung, dann müssen diese Personen noch nicht mal ihre Einladungs-/Eintrittskarte vorweisen - man ist froh, das diese VIP's da sind, während Du zwar eine Eintrittskarte hast, Dich aber in die Warteschlange einreihen und Leibesvisitation / Taschenkontrolle usw. über Dich ergehen lassen mußt.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

Danke für deine ausführliche Beschreibung.*Smilie

Ich habe bitte aber noch ein Anliegen an dich.
In der Liste habe ich noch ein Datum und ein Feld hinzugefügt.
Habe den Code aktualisiert und dann nochmal getestet.
Wenn ich z.B. in der ersten Zelle einen Wert eingebe, der unter 10 liegt,
blinkt dieser trotzdem und lässt die zweite Zelle vollkommen vom Blinken aus. obwohl der Wert über 10 liegt.
Habe das Beispiel hochgeladen, brauchst nur noch auf den Button klicken und du wirst das Problem sehen.
Gibt es da noch ne Lösung?

Danke,lg Ivy

Sorry, hatte falsche Datei hochgeladen.

 

Falsch:

Richtig: Code:

Kontrolliere es bitte auch bei den anderen Vergleichen, denn da ist es auch falsch.

Gruß von Luschi
aus klein-Paris

 

Hallo Ivy,

hier eine bessere Variante, falls die Anzahl der blinkenden Zellen noch ansteigen kann: Code:

 

Hallo Luschi,

Danke, super Code. Hab es getestet. Funktioniert bestens.
Aber wenn bei alle Zellen die Werte unter 10 liegen, gibt es einen Laufzeitfehler '1004'.
Wenn die Werte aller Zellen unter 10 sind, soll es nichts machen.

Danke für deine riesigen Bemühungen
Lg Ivy

 

Hallo Ivy,,

den Fehler zu finden ist doch garnicht schwer. Wenn die Fehlermeldung erscheint:
- den Button 'Debuggen' klicken
- Vba-Editor wird aufgerufen
- diese Zeile ist gelb markiert: With .Range(sRg)
- mit der Maus auf sRg zeigen
- sRG = "" wird angezeigt
- und aus einer Leerzeichenkette kann kein Rangebereich gebildet werden

Also folgende Verzweigung einbauen:
If sRG = "" Then
Exit Sub
End If
oder:
If Len(sRg) = 0 Then
Exit Sub
End If
und dann erst:
With .Range(sRg)

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

Ich bin froh, dass ich in diesem Forum bin.
Vielen lieben Dank für deine Hilfe. Jetzt funktioniert es ausgezeichnet.
Von mir bekommst du 10 Sterne - 5 für deine Hilfe und 5 für dein Können.
DANKE.

Lg Ivy

 

Hallo Ivy,

10 Taler statt 10 Sterne hätten schon gereicht!

Gruß von Luschi
aus klein-Paris